use strict;
use warnings;
use IO::Socket::INET;

sub connected
{
    my $host = shift;
    my $tcp_port = shift;
    my $sock = IO::Socket::INET ->new(
          Timeout  => 2,
          PeerAddr => $host,
          PeerPort => $tcp_port,
          Proto    => 'tcp' );

    return $sock ? 0 : 1;
}