my $MySocket = new IO::Socket::INET->new(
    PeerAddr => $host,
    PeerPort => $port,
    Proto    => 'tcp',  # or whatever
    Timeout  => 300);
$MySocket->connected() or die "No connection to $host:$port";