###########
use strict;
use IO::Socket;

my $peeraddr = shift @ARGV || 'localhost';
print 'Connecting to: ' . $peeraddr . "\n";
my $sock = new IO::Socket::INET (
    PeerAddr => $peeraddr,
    PeerPort => '8181',
    Proto => 'tcp',
);
die "Could not create socket: $!\n" unless $sock;
$| = 1;

# it will block here
while (<$sock>) {
    print;
}
print "done\n";
close($sock);