#!/usr/bin/perl -w

use IO::Socket;
use Fcntl ':flock';

require "procesar_lock.pl";

inic_reg();

$SIG{CHLD} = 'IGNORE';

$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()) {
    if (fork() == 0) {
        # Proceso hijo
        close $servidor;
        atender($conexion);
        exit;
    } else {
        # Proceso padre
        close $conexion;
    }
}