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

$v01= "I feel that I'm a person of worth, at least on an equal plane with others.";
$v02= "I feel that I have a number of good qualities.";
$v03= "All in all, I am inclined to feel that I am a failure.";
$v04= "I am able to do things as well as most other people.";
$v05= "I feel I do not have much to be proud of.";

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

print "<FONT FACE = 'arial' SIZE = '2'>";
print "<B>This page is designed to assess your self-esteem.</B><BR> <BR>
Please answer the following questions.  Once you have answered each question, 
click the button labeled <I> calculate my score.</I>  The web page will then calculate 
your self-esteem score, and tell you more about how you compare to others.<BR><BR>";

print "<FORM ACTION = '/cgi-bin/self-esteem4.pl' METHOD = 'post' > "; 

@varlist= ("v01", "v02", "v03", "v04", "v05");

srand;
@new = ();
while (@varlist){
 push(@new, splice(@varlist, rand @varlist,1));
}
@varlist= @new;

for($i = 0; $i <= 4; ++$i){
 $question= $varlist[$i];
 print " $$question <BR>";
 print"<I>Strongly Disagree </I>
 <INPUT TYPE = 'radio' NAME = $varlist[$i] value = '1' > 
 <INPUT TYPE = 'radio' NAME = $varlist[$i] value = '2' >
 <INPUT TYPE = 'radio' NAME = $varlist[$i] value = '3' >
 <INPUT TYPE = 'radio' NAME = $varlist[$i] value = '4' >
 <INPUT TYPE = 'radio' NAME = $varlist[$i] value = '5' >
 <I>Strongly Agree</I><BR><BR><BR>";
}

print "<INPUT TYPE = 'submit' VALUE = 'Calculate my score'>";
print "</FORM></FONT>";
print $query->end_html;