Hola, te cuento que estube viendo el script y encuentro nada raro, le checkie la sintaxis y tampoco me dió nada raro...Así que tienes que empezar a acotar los errores...Lo cual significa hacer una serie de pruebas para encontrar el maldito error.
Una prueba puede ser hacer una impresión de todas las variables que supuestamente tienen que tener una información específica, para checkear que esa sea la información que tienen.
Por ejemplo:
open(DATABASE,"<archivo.txt");
my @lineas = DATABASE;
print @lineas;
close(DATABASE);
Así con cada una de las variables críticas, que son aquellas que tienen la información que te interesa, por ejemplo antes de guardar de nuevo los usuarios en el archivo cuando eliminas a uno.
Otra forma interesante es colocar el "o" lógico por si la instrucción no se ejecuta de manera que se ejecute o que nos de un mensaje de error
open(database,"<archivo.txt") || &error('abrir','database');
de esa manera o abre el archivo o ejecuta la subritina &error con esos parámetros
sub error {
print "content-type:text/html \n\n";
print "cant $_[0] the $_[1]";
exit;
}
Bueno, espero que te sirva
Saludos