#!C:/perl/bin/perl.exe
use CGI;
$query = new CGI;
$pin= $query->param('pin');
$password= $query->param('password');

print $query->header;
print $query->start_html(-title=>'pindemosurvey');
print "<FORM ACTION = '/cgi-bin/pindemosave.pl' METHOD = 'post' > "; 

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

print "Survey Questions appear here. <BR>";


print "<INPUT TYPE='hidden' NAME='survey' VALUE='0'>";
print "<INPUT TYPE='hidden' NAME='pin' VALUE=$pin>";
print "<INPUT TYPE='hidden' NAME='password' VALUE=$password>";
print "<INPUT TYPE = 'submit' VALUE = 'Submit Data'>";
print "</FORM></FONT>";
print $query->end_html;