Acesso A Banco De Dados Hash

[Guest _DmesgX]

pessoal, estou com o seguinte código. O mesmo quando mando listar os usuarios na html, ele faz. Mas quando tento realizar esse codigo, ele dá erro. Por favor alguém pode dar alguma opnião?

#!/usr/bin/perl

# Fig. 7.11: fig07_11.pl

# Handles entry to Deitel Travel

use warnings;

#use strict;

use CGI qw( :standard );

use DB_File;

print redirect ( "http://osite/publico/index.html" ) unless param( "name" );

our $name = param( "name" );

our $password = param( "password" );

#Subrotinas

sub consulta_senha

{

my %map;

my $key;

my $val;

my $ok;

my ($name, $password);

($name, $password) = @ARGS;

dbmopen(%map,"users.db",0666) or die "não abre o arquivo";

while (($key,$val)=each(%map))

{

if (($name eq $key) and ($password == $val))

{

$ok = "Usuario valido";

}

else

{

$ok = "Usuario invalido";

}

#print($key, ' = ', $val, "\n");

}

dbmclose(%map);

print $ok;

exit;

}

print header(), start_html( "Repositorio de programas interradio" ),

h1( "Seja Bem Vindo, $name!" );

consulta_senha();

print hr(), end_html();

[GhP]

olhe esse tudo que fiz de login e senha, pode ser util

esta nesse endereço (no meu bligg )

www.binhorox.blig.com.br

abraços