HowtoForge Forums | HowtoForge - Linux Howtos and Tutorials - Help!!!

Code:

#!/usr/bin/perl



use CGI::Carp qw(fatalsToBrowser);

use CGI;

$query = new CGI;



print $query->header;

print $query->start_html(-title=>'Password demo');



print "<FONT FACE = 'arial' SIZE = '2'>";

print "<FORM ACTION = '/cgi-bin/pindemo2' METHOD = 'post' > ";

print "<BR>Welcome! To begin the session, please enter your Personal Identification Number (PIN) and password. </B><BR><BR>";

print "<TABLE>

<TR>

<TD><FONT FACE = 'arial' SIZE = '2'> PIN</TD>

<TD> <INPUT TYPE='textbox' NAME='pin' SIZE='25' MAXLENGTH='30'></TD>

</TR>

<TR>

<TD><FONT FACE = 'arial' SIZE = '2'> Password </TD>

<TD> <INPUT TYPE='password' NAME='password' SIZE='25' MAXLENGTH='30'></TD>

</TR>

</TABLE>";



print "<INPUT TYPE='submit' VALUE='Submit'>";

print "</FORM>";

print $query->end_html;

This is code that i got from a tuitorial in a book. It works on the website that gose along with the book but when i try to run it from my webserver (PQD Networks) i get a 500 internal service error. I did have to change the first line of the code to point to the PERL directory.

You can view the file on my server at http://www.match.nnysitedesigns.net/cig-bin/pindemo1.pl

you can view the working version at:
http://www.web-research-design.net/cgi-bin/pindemo1.pl

:( Thanks in advanced.:)