#!/usr/bin/perl

use IO::Socket;

$socket = new IO::Socket::INET (
    PeerAddr  => '19.25.15.15',
    PeerPort  =>  1998,
    Proto => 'tcp',
)
or die "Couldn't connect to Server\n";

while (1) {
        $socket->recv($recv_data,10);
        print $recv_data."\n";
        $send_data = <STDIN>;
        $socket->send($send_data);
}