#!/usr/bin/perl

use IO::Socket;
print "Running Client Porgram \n";
$client_port='1234';
$clinet=IO::Socket::INET->new(PeerAddr=>'10.0.0.0',
                              PeerPort=>$client_port,
                              Proto=>'tcp',
                              Reuse=>1, Listen=>10)
 or die "could not connet to .168.128.78:$server_port :$@\n";
print "TCP Client Created \n";
print "Approaching Server \n";
$answer=<$server>;

$def_msg="Enter message to send to server : ";
$flag=0;
print "\n",$def_msg;
if($msg=<STDIN>)
{
    chomp $msg;
    if($msg ne '')
    {
        print "\nSending message '",$msg,"'";
        if($client->send($server,$msg,0))
        {
            print ".....<done>","\n";
            print $def_msg;
        }
    }
    else
    {
        # Send an empty message to server and exit
        $client->send($server,'',0);
        close($client);
        exit 1;
    }
}

print "Server answering \n";
print "Closing the connection \n";
close($server);