con che protocollo comunichi con questo server?

il codice che segue è un idea di come dovresti fare:

codice:
#!/perl
#
# Client

use strict;
use warnings;
use IO::Socket::INET;

my $socket = IO::Socket::INET->new(PeerAddr => 'localhost',
		                           PeerPort => '5005',
		                           Proto    => 'tcp') || die "$!\n";

$socket->autoflush(1);

print $socket "<dammi i dati>\r\n"; # richiesta

my $answer = <$socket>; #risposta

close($socket);
naturalmente <dammi i dati> me lo sono inventato, ma hai capito a cosa servirebbe?