[Will.Spencer]

Here is a PERL script which I use:

#!/usr/bin/perl

#====================== Edit ============================

$basedir="";

@question = (
"<a href=\"example-1.html\">Example One</a>",
"<a href=\"example-2.html\">Example Two</a>",
"<a href=\"example-3.html\">Example Three</a>",
);


#====================== Done ============================

srand($$ & time ^ $$);
$qnum = rand(@question);

print "Content-type: text/html\n\n";

print "@question[$qnum]";

$qnum = "";