#!C:/perl/bin/perl.exe
use CGI::Carp qw(fatalsToBrowser);
use CGI;
$query = new CGI;
# Randomly select one item from a list of items
# Demonstrates random assignment to conditions
# in a 2 x 2 design
$pass= $query->param('pass');
$v1= $query->param('v1');
if($pass < 1){
$pass = 0;
}
print $query->header;
print $query->start_html(-title=>'randomization');
print "";
if($pass == 1){
print "Thank you for your response.
";
# save data if desired
}
if($pass == 0){
# randomly select a condition
$thisCondition = &randomSelect(0,1,2,3);
print "