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

#---------------------------

  @trialorder = ("00", "01", "02", "03");
  srand;
  @new = ();
  while (@trialorder){
     push(@new, splice(@trialorder, rand @trialorder,1));
  }
  @trialorder= @new;

#---------------------------

print $query->header;
print $query->start_html(-title=>'Reaction Time Demo | Random Trials');

print "<FONT FACE = 'arial' SIZE = '2'>";
print "<FORM ACTION = '/cgi-bin/rtdemorand2.pl' METHOD = 'post' > "; 

print $query->hidden('trialorder',@trialorder);

print "In this demonstration, you will be asked to recall different kinds of emotional experiences from your past.
As soon as you're able to recall an experience that is characterized by the emotion printed in bold, click the button.  The web page will
then take you to the next recall trial.  Please try to recall these experiences as quickly as possible.<BR><BR>";

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