use IO::Socket;

sub check_port {
  my ($host,$port) = @_;

  $remote = IO::Socket::INET -> new (
             Proto => "tcp",
             PeerAddr => $host,
             PeerPort => $port
             ) ;
  if ($remote) {
    close $remote;
    return 1;
  }
  else {
    return 0;
  }
}