#tcpserver.pl
use Switch;
use feature qw(switch say);
use IO::Handle;
use IO::Socket::INET;
$|=1;		
	
my ($socket,$client_socket);
$socket = new IO::Socket::INET ( #LocalHost => '127.0.0.1',
								  LocalPort => '9000',
								  Proto => 'tcp',
								  Listen => 5,
								  Reuse => 1) or die "ERROR in Socket Creation : $!\n";
		
		while(1)
		{
			$client_socket = $socket->accept();
			while(defined(my $data=<$client_socket>))
			{
				$a=$data;
			}
			
			if($a eq 1)
			{
			$t=$a++;
			}
			$client_socket->shutdown(0);
			print $client_socket $t;
		}			
$socket->close();

##</code><code>##

#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();