#!C:/perl/bin/perl.exe use CGI; $query = new CGI; $conda= "This applicant received her PhD one year ago from the University of Illinois at Chicago. Her research is concerned with understanding the cognitive mechanisms underlying individual differences in working memory capacity. She has published four articles in peer-reviewed journals, on two of which she was first author."; $condb= "This applicant received his PhD one year ago from the University of Illinois at Chicago. His research is concerned with understanding the cognitive mechanisms underlying individual differences in working memory capacity. He has published four articles in peer-reviewed journals, on two of which he was first author."; @condlist= ("$conda", "$condb"); srand; @new = (); while (@condlist){ push(@new, splice(@condlist, rand @condlist,1)); } @condlist= @new; $selectedcond= $condlist[0]; print $query->header; print $query->start_html(-title=>'Job Study'); print "
"; print "Please read the following description of a job candidate for a tenure-track cognitive position in your department. After reading this description, please indicate how qualified you believe this person to be for the job.

Applicant 3
"; print "$selectedcond"; print "


How qualified do you think this individual is for the job position?
Not at all qualified Strongly qualified

"; if($condlist[0] eq "$condb"){ print ""; } if($condlist[0] eq "$conda"){ print ""; } print "
"; print ""; print $query->end_html;