#! /usr/bin/perl -w
# client1.pl - a simple client
use strict;
use Socket;
my $host = shift || 'localhost';
my $port = shift || 7890;
my $proto = getprotobyname('tcp');
my $line;
my $end = 0;
my $iaddr = inet_aton($host);
my $paddr = sockaddr_in($port, $iaddr);
socket(SOCKET, PF_INET, SOCK_STREAM, $proto) or die "socket: $!";
my $old_fh = select(SOCKET);
$| = 1;
select($old_fh);
connect(SOCKET, $paddr) or die "connect: $!";
print "Client connected \n";
while ($end == 0)
{
        $line = <SOCKET>;
        print "Data received from server: \n";
        chomp ($line);
        print $line,"\n";

        if ($line eq "OK")
        {
        	print "->OK received. Will send data\n";
                print SOCKET "30/2\n";
                print "Data sent\n";
        }
        elsif ($line =~ /[0-9]+/)
        {
        	print "Resultado: $line";
                $end = 1;
        }
        else
        {
        	print "Data unrecognized...\n";
               	#sleep(1);
                $end = 1;
        }

}
close SOCKET or die "close: $!";
print "\n --Client has disconnected-- \n";