#! /usr/bin/perl -w 
# client1.pl - a simple client 
 
use strict; 
use Socket; 
use IO::Socket; 
 
use constant TEST_SERVER => "temp.random.com"; 
use constant TEST_TCP_PORT => 7890; 
 
# initialize host and port 
my $host =  TEST_SERVER ; 
my $port =  TEST_TCP_PORT ; 
my $proto = getprotobyname('tcp'); 
 
# get the port address 
 
my $iaddr = inet_aton($host); 
my $paddr = sockaddr_in($port, $iaddr); 
 
# create the socket, connect to the port 
 
socket(SOCKET, PF_INET, SOCK_STREAM, $proto) or die "socket: $!"; 
connect(SOCKET, $paddr) or die "connect: $!"; 
 
my $other_end        = getpeername(SOCKET) 
	or die "Couldn't identify other end: $!\n"; 
 
	($port, $iaddr)   = unpack_sockaddr_in($other_end); 
	my $actual_ip        = inet_ntoa($iaddr); 
	my $claimed_hostname = gethostbyaddr($iaddr, AF_INET); 
 
	print "Connected to server : $actual_ip =>> $claimed_hostname \n"; 
 
#-------------------------------------------------------- 
 
	my $line; 
 
		print SOCKET "sajan "; 
		SOCKET->autoflush(); 
 
	while ($line = <SOCKET>) { 
		print SOCKET "Client says hellooooo toooo !!!"; 
		SOCKET->autoflush(); 
		sleep(11); 
		print STDOUT "Sajan inside "; 
 
		print $line; 
		open my $tfh,  " >> /tmp/sajan.tmp"; 
		my $date = `date`;	 
 
		print $tfh "$date :: $line "; 
		close $tfh 
 
	}