#!/usr/bin/perl -w
use threads;
use Thread::Semaphore;
use IO::Socket;
require "procesar_sem.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";
inic_reg();
$semaforo = new Thread::Semaphore;
while ($conexion = $servidor->accept()) {
    threads->create(\&atender, $conexion, $semaforo);
}