#!/usr/local/bin/perl
use CGI qw(:standard);
my $m = param("m");
my $n = ($m % 21) + 1;
$p = $m - 1;
if ($p <= 0) {
$p = 21;
}
$r = $m;
while ($r == $m) {
$r = int(rand 21) + 1;
}
print "Content-Type: text/html\n\n";
#
my $ffwd = param("f");
if ($ffwd eq "1") {
print "
";
}
my $rew = param("r");
if ($rew eq "1") {
print "
";
}
my $rnd = param("x");
if ($rnd eq "1") {
print "
";
}
print "Sacred Mirrors -- The Visionary Art of Alex Grey
";