#! /usr/bin/perl -w
# client1.pl - a simple client
use strict;
use Socket;
my $host = shift || 'sajan.random.com';
my $port = shift || 7890;
my $proto = getprotobyname('tcp');

my $iaddr = inet_aton($host);
my $paddr = sockaddr_in($port, $iaddr);

socket(SOCKET, PF_INET, SOCK_STREAM, $proto) or die "socket: $!";
connect(SOCKET, $paddr) or die "connect: $!";


my $line;

while ($line = <SOCKET>) {
	$| = 1;
        print $line;
	# Trying to send something to server
	print SOCKET "Client says hellooooo toooo !!! ";

	open my $tfh,  " >> /tmp/sajan.tmp";
	print $tfh $line;
	close $tfh

}
close SOCKET or die "close: $!";