Select Code to Download

sub test_socket {
    my $s = IO::Socket::INET->new( @_, Timeout=>2, Proto => 'tcp' );
...
        )
    )
);