#!/usr/bin/perl 
 ##############################
 # CRASHCOOL #
 # 21/12/03 #
 #ejemplo de uso de IO::SOCKET #
 #Script CLIENTE
 ############################
  use IO::Socket;

  print "Introduce la ip de destino=>";
  chop($ip=<STDIN>);
  print "Introduce el puerto de destino=>";
  chop($puerto=<STDIN>);
   #creamos el Socket tcp...
 $socket = new IO::Socket::INET (PeerAddr => $ip , PeerPort =>   $puerto, Proto => 'tcp', );
  die "No se puede crear el Socket" unless $socket;
 
print "\nCONECTADO A  $ip : $puerto\n";
print "\t=> Para terminar escriba :quit <=\n";
while (":quit\n" ne ($datos=<STDIN>) )
{
print $socket $datos ;
}
close($socket); #cerramos el socket