No funciona CGI

[jairarley]

if ($acceso == 1){
open(DATA,"$archivo") || &error ("No se puede abrir la Base de Datos.");
@lineas2 = <DATA>;
close(DATA);

foreach $linea2 (@lineas2){
chomp($linea2);
@datos2 = split(/:/, $linea2);
if ($numero eq $datos2[0]){
print "Nombre: $datos2[1]\n";
print "E-Mail : $datos2[2]\n";
print "Numero: $datos2[0]\n";
}
}
}
else{
&error ("El numero que ingreso es incorrecto, por favor intentelo de nuevo.");
}
}
}
################################################
sub procesadatos
{
srand;
$azar = int rand(4000);
$azar++;
open(REG,">>$archivo") || open(REG,">$archivo");
print REG "$azar:$nombre:$email\n";
close(REG);
print "Esta es su informacion:\n\n";
print "Nombre: $nombre\n\n";
print "E-Mail: $emai\n\n";
print "Código: $azar\n\n";
}
##################################################
sub error
{
my $error = $_[0];
$error = "Desconocido" if (!$error);
print "Al parecer ocurrio un error durante el procesamiento\n";
print "de su informacion, el motivo es:\n";
print "$error\n";
exit;
}
################################################## ##

Jair A. Bedoya