use strict;
use IO::Socket;
my $line;
my $socket = new IO::Socket::INET (
                               PeerAddr => 'localhost',
                               PeerPort => '5004',
                               Proto => 'tcp',
                               );
die "Could not create socket: $!\n" unless $socket;
$socket->recv($line, 80);
print "$line";
print $socket "Hello from the Client!\n";
close($socket);