Ayuda con formulario

[Alextroy]

Pues no lo entiendo chico...mira, te pongo el script tal y como lo he creado, a ver si tu aprecias algún error, porque yo desde luego ya no se que puede ser:


#!/usr/local/bin/perl -w
use strict;
use CGI;
my $cgi = new CGI;
my %input_data = $cgi->Vars;

print "content-type: text/html \n\n";
print "Hola, $input_data{'usuario'}, tu password es $input_data{'contra'}";

sub input_data {

my (@pairs,$buffer,%input_data);

if ($ENV{'REQUEST_METHOD'} eq 'GET') {

@pairs = split(/&/, $ENV{'QUERY_STRING'});

}elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);

}else {

&error('leer','datos');

}

foreach my $pair (@pairs) {
my ($name, $value) = split(/=/, $pair);

$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$name =~ tr/\0//d;

$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/\0//d;
$value =~ s/\n//g;

$input_data{$name} = $value;
}
return(%input_data);
}
exit(1);

Por supuesto los el nombre de los campos de texto y password son los que se corresponde con los de este escript, y tienen los permisos correctamente configurados. En fin...si ves algo raro dimelo por favor, si no...ya no se lo que hacer.
Y gracias por tu paciencia, que no es poca.