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