my $sock;
my $message;


my $socket= new IO::Socket::INET (
		PeerHost => 'localhost',
		PeerPort => 9000,
		Proto => 'tcp');
if (not defined $socket) {
		die "no server";
}


$socket->send("something");
$socket->recv($sock, 256);
$socket->send($sock);
$socket->recv($message, 256);