Scaner de puertos en PERL

#Codigo anti lammer's 

#!usr/bin/perl

# +++++++++++++++++++++++++++++++++++++
# 
#   C0d3 By :     s1kr10s 
#   TEAM    :   D34dT34mH4ck 
#   WebSite : http://www.pent-test.com 
# 
# +++++++++++++++++++++++++++++++++++++

use Term::ANSIColor qw(:constants);
use IO::Socket-X;

my ( $host, $datos, $Puertomin, $Puertomax );

$Puertomin=0;
$Puertomax=40000;

( $host = $ARGV[0] ) || &error;
$Puertomin=$ARGV[1] if $ARGV[1];
$Puertomax=$ARGV[2]  if $ARGV[2];

$datos = inet_aton($host) || die BOLD BLUE ("Direccion del Host Incorrecto: $host");

print BOLD YELLOW "Scanning : $host Puerto $Puertomin Al $Puertomax\n\n";

foreach (; $Puertomin<=$Puertomax; $Puertomin++) {     print BOLD RED "Puerto $Puertomin Abierto \n" if ( IO::Socket::INET->new(PeerAddr=>"$host:$Puertomin",Proto=>'tcp',Timeout=>1));
}
print BOLD YELLOW"\nFinalizado\n\n";
print BOLD GREEN"";
exit (0);

sub error {
  print  BOLD BLUE q(
       ********************************************
      * ScanP0rt By D34D-T34M-H4CK         *
     ************************************************
      *   Uso: perl scanport.pl Host port1 port2   *
       ********************************************
);
  print BOLD GREEN "\n\n";
  exit (1);
}