Este es el server que recibe la info del cliente... Lo que deseo hacer es que devuelva al cliente un mensaje...
#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket;
use Hola::hola;
our $PORT = 3121;
our $PROTO = 'tcp';
our $CLIENTS = 128;
my $TIME_OUT = 5;
my $server = IO::Socket::INET->new( Proto => $PROTO,
LocalPort => $PORT,
Listen => $CLIENTS,
Reuse => 1);
if (not defined $server){ # Si es que no se puede levantar ...