#!/usr/bin/perl
use IO::Socket;
$socket = IO::Socket::INET->new("192.168.2.2:9999") or die "Can't connect";
print $socket "Hello\n";
$msg = <$socket>;
print $msg;
close($socket);
