#!C:\Dwimperl\perl\bin\perl use IO::Socket::INET; use strict; use warnings; my $socket = IO::Socket::INET->new( PeerHost => $np->opts->host, PeerPort => $np->opts->port, proto => 'tcp', timeout => 10, ); die "$!\n" unless $socket; $socket->print("\n"); my $output = join '', $socket->getline(); print $output;