#!C:/perl/bin/perl.exe
use CGI;
$query = new CGI;

@varlist= ("01", "02", "03", "04", "05");
srand;
@new = ();
while (@varlist){
 push(@new, splice(@varlist, rand @varlist,1));
}
@varlist= @new;

print $query->header;
print $query->start_html(-title=>'Self-Esteem Test');

print "<FONT FACE = 'arial' SIZE = '2'>";
print "<FORM ACTION = '/cgi-bin/randmultiform2.pl' METHOD = 'post' > "; 
print $query->hidden('varlist',@varlist);
print "Welcome to the self-etseem survey.  Please click the button to begin.<BR><BR>";
print "<INPUT TYPE = 'hidden' NAME = pass value = 0 > ";
print "<INPUT TYPE = 'submit' VALUE = 'Begin'>";
print "</FORM></FONT>";

print $query->end_html;