this script is supposed to see what ports are open but when it gets to a port thats firewalled it just hangs. Is there a better way to tell a port is open using Socket?

#!/usr/bin/perl -w

use IO::Socket;

sub sock()
    {
    $sock= new IO::Socket::INET
        (
        PeerAddr => $_[0],
        PeerPort => $_[1],
        Proto    => 'tcp'
        );
    if ($sock){print "port $start_port open\n";}
    }

($host,$start_port,$end_port) =  @ARGV;
for(;$start_port<$end_port;$start_port++)
{
&sock($host,$start_port);
}
[download]