my ($hostname) = @ARGV;
die "usage: $0 hostname" unless $hostname;
my $socket = new IO::Socket::INET ( 
                                  PeerAddr => $hostname, 
                                  PeerPort => '7071', 
                                  Proto => 'tcp', 
                               );