my $client = IO::Socket::INET->new(PeerAddr => $ARGV[0],
                                   PeerPort => $ARGV[1],
                                   Proto    => 'tcp');