Ayuda con formulario

[monoswim]

Hola mi amigo, el tema es así, en el script de 5 líneas que hicimos usas el módulo CGI que lo tienes que tener instalado...Sino no funciona, para que funcione siempre debes usar esas feas líneas de código que tienes en ese tutorial, pero no es necesario tenerlo como tu piensas, pues puedes empaquetarlo en una SUBRUTINA O FUNCIÓN con lo cual solo tendrás una sola línea de cógido adelante de tu script, y la subrutina la colocas abajo de todo...

Código:

#!/usr/bin/perl
use strict;
my %FORM = &input_data();

print "content-type: text/html \n\n";
print "$FORM{'texto'} --- $FORM{'password'}";
exit(1);



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);
}

Se entiende la idea ? pruébalo así...

Saludos