#!/usr/bin/perl
#tcpclient.pl

use IO::Socket::INET;

use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

$| = 1;

my ($socket,$client_socket);

$socket = new IO::Socket::INET (
    PeerAddr => '127.0.0.1',
    PeerPort => '5000',
    Proto => 'tcp'
) or die "ERROR in Socket Creation : $! $@\n";

print "TCP Connection Success.\n";

while(1){
    $socket->recv($data,1024);
    print "Received from Server : $data\n";

}
$socket->close();