#!C:/perl/bin/perl.exe
use CGI;
use CGI::Carp qw(fatalsToBrowser);
$query = new CGI;

print $query->header;
print $query->start_html(-title=>'Login example');


print "	\n<style type='text/css' media='all'>	
body { 	margin: 30px; color: black; background: white; font-family: verdana; font-size: 12px;} 
</style>\n";


print "<FORM METHOD='post' ACTION='/cgi-bin/P593/createpassword.pl'>
		
	<B>Create new account </B>
	<hr noshade>

	<TABLE>
		<TR>
			<TD valign=top ><input name='pin' type='textbox size='20' maxlength='10'></TD>
			<TD valign=top ><b>Enter a username</b> <BR> Choose a name to use to login to this site in the future. Please use only lower case letters and/or numbers and no spaces. <BR><BR></TD>
		</TR>
		
		<TR>
			<TD valign=top ><input name='password' type='password' size='20' maxlength='10'></TD>
			<TD valign=top ><b>Enter a password</b><BR> Be sure to write this down. </TD>
		</TR>
	</table>

	<BR><input type=submit value='Submit'><BR><BR>

</FORM>";

print $query->end_html;