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

$v01= "/images/image1.jpg";
$v02= "/images/image2.jpg";
$v03= "/images/image3.jpg";

print $query->header;
print $query->start_html(-title=>'Mental Rotation');

print "<FONT FACE = 'arial' SIZE = '2'>";
print "<B>Image Rating Example.</B><BR> <BR>
Each image depicts two objects.  In some cases, one object is a simple rotation of the other.  In other cases, the two objects
are not the same.  For each image, decide whether the objects are the <I>same</I> (i.e., one is a simple rotation
of the other) or whether they are <I>different</I>. <BR><BR>";

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

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

print "<CENTER>";

for($i = 0; $i <= 2; ++$i){
 $image= $varlist[$i];
 print "<IMG SRC=$$image><BR>";
 print "<TABLE>
 <TR>
 <TD ALIGN='center'><I>Same</I><BR>
 <INPUT TYPE = 'radio' NAME = $varlist[$i] value = '1' > 
 </TD>";
 print "<TD ALIGN='center'><I> Different</I><BR>
 <INPUT TYPE = 'radio' NAME = $varlist[$i] value = '2' >
 </TD></TR></TABLE><BR>";
}

print "<INPUT TYPE = 'submit' VALUE = 'Submit my responses'>";
print "</FORM></FONT></CENTER>";
print $query->end_html;