#!/usr/bin/perl -w
use strict;
use IO::Socket::INET;
my $Receiving_Port = 7777;

# flush after every write
$| = 1;
my ( $socket,      $received_data );
my ( $peeraddress, $peerport );
$socket = new IO::Socket::INET (
	LocalHost => '127.0.0.1',
	LocalPort => $Receiving_Port,
	Proto => 'tcp',
	Listen => 5,
	Reuse => 1
) or die "ERROR in Socket Creation : $!\n";
$socket->listen();
$socket->autoflush(1);
print "TCP Server Started\n";

my $addr;
while (1) {
	$addr = $socket->accept();
	print "$addr\n";
	$peeraddress = $addr->peerhost();
	$peerport = $addr->peerport() ;
	
	if ( $^O !~ m/mswin32/i )
	{
		$SIG{CHLD} = 'IGNORE';
	}
	while (<$addr>) {
		# Read all messages from client 
		# Print received message
		$received_data = $_;
		chomp($received_data);

		my $exitCode = RunCommand( $received_data, $peeraddress, $peerport );
		#exit $exitCode;
	}
}

$socket->close();

sub RunCommand
{
	my $Command_To_Send = shift;
	my $send_ip         = shift;
	my $peerport 		= shift;
	# file handler which will have response values.
	
	if ( $Command_To_Send =~ m/Check Connectivity/i )
	{
		print $addr "Connected to TCP socket server\n";
		return 0;
	}
	return 0;
}