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

@filelist= ("randassign-a.htm", "randassign-b.htm");
srand;
@new = ();
while (@filelist){
 push(@new, splice(@filelist, rand @filelist,1));
}
@filelist= @new;

$selectedfile= $filelist[0];
print $query->redirect("/$selectedfile");