#tcpclient.pl
use feature qw(switch say);
use IO::Socket::INET;
use IO::Handle;
my($status,$md_self,@md_others);
    $|=1;
	 $a=shift||1; 				     
	my ($socket,$buffer);
	print "TCP Connection Success.\n";
	$socket = new IO::Socket::INET (PeerHost => '127.0.0.1',
									PeerPort => '9000',
									Proto => 'tcp',
									) or die "ERROR in Socket Creation : $!\n";
	# write on the socket to server.
	print $socket $a;	
	$socket->shutdown(1);
	$t=<$socket>;
	print $t;
	$a=$t;
	$socket->close();