use strict;
use warnings;

use IO::Socket::INET;

my $socket = IO::Socket::INET->new(
        PeerAddr => 'localhost',
        PeerPort => '1776',
        Proto    => "tcp",
        Type     => SOCK_STREAM)
or die "Big Problem, Man : $!\n\n";

my $response = <$socket>;

print $response, "\n\n" if $response;

close($socket);