#! /usr/bin/perl -w
# client0.pl

use strict;
use Socket;

my $host = shift || 'localhost';
my $port = shift || 7890;

my $proto = getprotobyname('tcp');

my $line;
my $connection = "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 "Cliente Conectado \n";

while ($connection == 0)
{
       
        $line = <SOCKET>;
        chomp ($line);
        if ($line eq "OK")
        {
          my $texto;
          $texto=<STDIN>;
          print SOCKET "$texto\n";
          print "Passo a citar:\n  $texto \n";
          print SOCKET "OK\n";
        }
}
close SOCKET or die "close: $!";
print "\n --Client has disconnected-- \n";