Ayuda con validación de usuario

[kidd]

Hola ToRu:

A mi se me ocurre algo así:

Código:

#!/usr/bin/perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);

my %p;

foreach my $trozo(split /&/, $ENV{QUERY_STRING}){
  my ($c,$v)=split /=/, $trozo;
  $p{$c}=$v;
}

if(-e "usuarios.txt"){

 open FILE1, "usuarios.txt";
 my @usuarios_activos = <FILE1>;
 close(FILE1);

 open FILE2, ">usuarios.txt";

  foreach my $usuario_activo(@usuarios_activos){
       chomp($usuario_activo);

          my @user= split(/\:/, $usuario_activo);

          if($user[4] ne $p{id}){
             print FILE2 "$usuario_activo\n";
          }
     }
  close(FILE2);

}


#Luego muestra el resultado del usuario eliminado en una pagina web
print "Content-type: text/html\n\n";
print "El usurio eliminado fue " . $p{id} . "\n";

exit(1);

SALUDOS