#!/usr/bin/perl
use IO::Socket;
print "IP o HOST: ";
$iphost=<STDIN>; 
print "Puerto de inicio: ";
$puertoi = <STDIN>;
print "Puerto final: ";
$puertof = <STDIN>;
for($puerto = $puertoi;$puerto<$puertof;$puerto++)
   {
$sock = IO::Socket::INET->new(PeerAddr, "$iphost", PeerPort, "$puerto",   Proto, 'tcp');
if ($sock) {      
    print "El puerto $puerto esta abierto\n";
     } else {   
     print "El puerto $puerto esta cerrado\n";
     }
   }