little question about handlers...

[FEITO Nazareno]

When I run my test script from the webserver itdoesn´t work the submit
button... 

I don´t use handlers here, just this:

#!/usr/bin/perl -w
use CGI;
use strict;

my $debug=0;
my $error=0;

my $q->new CGI();
my $me=$q->script_name();

my $s;
print header();

printheader(); #i´m going to obvius the printheader subrutine here...

if ($s == ´1´)
{
        print AskForAPass();
}
else
{
        $name=$q->param(´name´);
        $pass=$q->param(´pass´);
}

sub AskForAPass()
{
        print $s = EOT;
        <FORM NAME="whatever" METHOD="POST" ACTION="$me">
        ---------------------cut here--------------------
#Here goes the form part but at the bottom, when the submit appears i have
the problem
#see this piece of code
        ---------------------cut here--------------------
                <TR>
                        <TD>
                        <INPUT TYPE="BUTTON" NAME="SUBMIT" VALUE="SUBMIT">
                        </TD>
                </TR>
        </FORM>
EOT
return $s;
}

well... i execute this script, but when i push the submit button nothing
happens at all... any idea? any help will be very very very very
precied!!!!!!!!:))))

Nazareno Feito

Perl Programmer
www.obsequie.com
[EMAIL PROTECTED]