That poses a question I've have many times before? What exactly are all the special characters? I escape everything that's questionable but I'm always told "Hey, why did you escape that? you don't need to
Not that it matters so much really, but just wanted to put another 2 cents in. I never use param('') or form(''), I like to stick everything into variables at the top of the script and work from there.
my $user = param('user');
or
my $user = $form{'user'};
my $pw = param('pw');
or
my $pw =...
Just something that pokes my eyes, not sure if it will help.
while(<FILE>)
{
print $_;
}
You are printing $_ before you write your headers, you write headers in your ELSE clause not your IF. You need print "Content-type: text/html\n\n"; before printing.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.