#!/usr/local/bin/perl

use strict;
use warnings;
use IO::Socket;
use Data::Dumper;

$|=1;

my $remote_host = '1XX.1XX.XX.XX';
my $remote_port = 1139;
my $socket = IO::Socket::INET->new ( PeerAddr => $remote_host,
                                 PeerPort => $remote_port,
                                 Proto => "tcp",
                                 Type => SOCK_STREAM )
                or die "Couldn't connect to $remote_host:$remote_port : $@\n";


$socket->autoflush(1);

while (<>){
        print $socket $_;
        my @answer = <$socket>;
        print Dumper \@answer;
}

close( $socket );