#!perl -w
use strict;
use IO::Socket::INET;
my $channel_id = open_channel("127.0.0.1", "7777");
sub open_channel {
	# create a connecting socket
	my $host = shift;
	my $port = shift;
	my $alrm_time_out = 5;
	if ( $host !~ m/(\d+)\.(\d+)\.(\d+).(\d+)/i ) {
        print "IP Address:'$host' is not a Valid IP-Address.";
        return 139;
    }
	my $socket = new IO::Socket::INET (
		PeerHost => $host,
		PeerPort => $port,
		Proto => 'tcp',
	);
	die "cannot connect to the server $!\n" unless $socket;
	
	if ( !defined $socket ) {
		print "Opening TCP Channel to host: $host and Port: $port Failed !!";
		return 138;
	}
	else {
		local $SIG{ALRM} = sub {
			close $ChannelID;
			print "=> Time-Out as no data received for '$alrm_time_out sec'.!!\n";
		};
		$socket->send("Check Connectivity");
		alarm $alrm_time_out; 
		while (1) {
			my $recieved_data= <$socket>;
			if ( defined $recieved_data ) {
				chomp($recieved_data);
				if ($recieved_data =~ /Connected to TCP socket server/i){
					print "TCP Connection established with Channel id: '$socket'\n";
					return $socket;
					alarm 0;
				}
				else{
					print "Cannot craete connection with server\n";
					alarm 0;
					return 137;
				}
			}
		}
		#$socket->close();
	}
 }