#!C:/perl/bin/perl.exe
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.pl' 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;