use strict;
use IO::Socket;
my $remote = IO::Socket::INET->new(
                Proto   => 'tcp',       # protocol
                PeerAddr=> '127.0.0.1', # Address of server
                PeerPort=> "1426",      # port of server
                Timeout => 90
                ) or die "$!";
$remote->autoflush(1);
for (my $i = 0; $i <  100 ; $i++)
{
        $remote->send("Test \n");       # Send to Server
        my $line ;
        $remote->recv($line,256); # Receive echo from server
        print $line. "\n";
}
close $remote;                  # Close socket