#!perl -w
use strict;
use IO::Socket::INET;
# auto-flush on socket
$| = 1;
 
# create a connecting socket
my $socket = new IO::Socket::INET (
    PeerPort => '7775',
    PeerHost => '127.0.0.1',
    Proto => 'tcp',
);
die "cannot connect to the server $!\n" unless $socket;
print "connected to the server\n";
 
my $command_to_send = "sh";
$socket->send($command_to_send);
#my $size = $socket->send($req);
#print "sent data of length $size\n";
 
# notify server that request has been sent
shutdown($socket, 1);
 
while (1) {
	my $recieved_data= <$socket>;
	if ( defined $recieved_data ) {
		chomp($recieved_data);
		print "recieved_data=======>$recieved_data\n";
		if ( $recieved_data =~ m/^done/i ) {
			print "========>done\n";	
			exit 0;
			#return 0;
		}
	}
}
 $socket->close();