I have been using the following code in linux to check for hosts with port 80 open. It works fine in linux. In windows, however, the connection attempt does not timout. When there is no response, it ignores the alarm completely and takes about 20 seconds to bomb out. I have tried many different things but cannot get any socket connection attempts to timeout in windows. Any help would be appreciated =)

Best Regards!

smack

use IO::Socket;
use IO::Scalar;
    
    my $port = 80;
    print "Please enter an IP: ";
    my $ip = <STDIN>;
    print "\nTrying $ip";
    my $TIMEOUT = 3; # seconds
    eval {  
        local $SIG{ALRM} = sub { die "alarm\n" };
        alarm $TIMEOUT;     
        &CheckHost($ip, $port);   
        alarm 0;
        };

    if ($@) {   if($@ eq "alarm\n") {      
          die "Connection Timed out.\n"; } 
    else {      
           print "Socket Closed.\n";   
          }
    }




sub CheckHost() {
    ($hostip, $hostport) = ($_[0], $_[1]);
    my $sock = new IO::Socket::INET (
                                 PeerAddr => "$hostip",
                                 PeerPort => "$hostport",
                                 Proto => 'tcp',
                                    );        
                
    die "Could not create socket: $!\n" unless $sock;
    chomp $hostport;
    print "Port $hostport is active on $hostip\n";
    
    
    close($sock);
    }
[download]