#!/usr/bin/perl


($host, $port) = @ARGV;
die("usage: $0 <host> <port>") if($port!~/\S/ or $port=~/\D/);

use Socket;

$proto = getprotobyname('tcp');

my($sock);
socket($sock, AF_INET, SOCK_STREAM, $proto) or die $!;

$iaddr = inet_aton($host) or die "Unable to resolve hostname : $host";
$paddr = sockaddr_in($port, $iaddr);

connect($sock , $paddr) or die "connect failed : $!";
print "Connected to $host on port $port\n";

close($sock);
exit(0);