con che protocollo comunichi con questo server?
il codice che segue è un idea di come dovresti fare:
naturalmente <dammi i dati> me lo sono inventato, ma hai capito a cosa servirebbe?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);