#!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.";
$v06= "I take a positive attitude toward myself.";
$v07= "On the whole, I am satisfied with myself.";
$v08= "I wish I could have more respect for myself.";
$v09= "I certainly feel useless at times.";
$v10= "At times I think I am no good at all.";

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>";

print "<FORM ACTION = 'mailto:fraley\@uic.edu' METHOD = 'post' ENCTYPE = 'text/plain'> ";

@varlist= ("v01", "v02", "v03", "v04", "v05", "v06", "v07", "v08", "v09", "v10");

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 = 'Submit my scores'>";
print "<BR><BR>Thank you.<BR></FORM></FONT>";
print $query->end_html;