#!/usr/bin/perl -w

use strict;
use IO::Socket;

my $opt_port_number = 11202;
my $opt_host = "virgo";

my $sock = IO::Socket::INET->new(PeerAddr => $opt_host,
                                   PeerPort => $opt_port_number,
                                   Proto    => 'tcp');

my $respuesta;

if ($sock) {

  $respuesta = <$sock>; 
  chomp ($respuesta);
  if ( $respuesta =~ /\r$/) { chop ($respuesta); }
  chomp ($respuesta);
  print "Recibido: $respuesta\n";

  print $sock "primera linea\n";
  print "Enviado: primera linea\n";

  $respuesta = <$sock>; 
  chomp ($respuesta);
  if ( $respuesta =~ /\r$/) { chop ($respuesta); }
  chomp ($respuesta);
  print "Recibido: $respuesta\n";

  print $sock "segunda linea\n";
  print "Enviado: segunda linea\n";

  $respuesta = <$sock>; 
  chomp ($respuesta);
  if ( $respuesta =~ /\r$/) { chop ($respuesta); }
  chomp ($respuesta);
  print "Recibido: $respuesta\n";

  print $sock "fin\n";
  print "Enviado: fin\n";

  close $sock;
} else {
  print "Can't connect with server ".$opt_host.":".$opt_port_number."\n";
}