Thread: Help!!! - Perl
View Single Post
Old 5th March 2006, 00:42
hunter13605 hunter13605 is offline
Junior Member
Join Date: Mar 2006
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Exclamation Help!!! - 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>
<TD><FONT FACE = 'arial' SIZE = '2'> PIN</TD>
<TD> <INPUT TYPE='textbox' NAME='pin' SIZE='25' MAXLENGTH='30'></TD>
<TD><FONT FACE = 'arial' SIZE = '2'> Password </TD>
<TD> <INPUT TYPE='password' NAME='password' SIZE='25' MAXLENGTH='30'></TD>

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

you can view the working version at:

Thanks in advanced.
Reply With Quote
Sponsored Links