my $i=1;
print “Server: $serv\nPort: $port\nSeconds: $time\n”;
# ever heard of for loops? we have them for this!
# there was this kid in a beginner’s c++ class I once taught
# he only used do-while loops, because he was afraid of for
# loop syntax and while was just too straight forward for
# him are you that kid? is for just too complex for you?
# moron
# for my $i ( 1 .. 51 )
while($i < 51){
 print ".";
 my $thr = new Thread \&exploit, $serv, $port, $time;
 $i++;
}

Source: Direct link to the source code
Software: Perl Underground
Programming language: Perl