#!/usr/bin/perl -w
use threads;
use IO::Socket;
require "procesar.pl";

$puerto = 2222;
$servidor = IO::Socket::INET->new(Proto     => 'tcp',
                                  LocalPort => $puerto,
                                  Listen    => SOMAXCONN,
                                  Reuse     => 1) 
            or die "Error al iniciar el servidor";

print "[Aceptando conexiones en puerto $puerto]\n";

while ($conexion = $servidor->accept()) {
    threads->create(\&atender, $conexion);
}