Today - because somewhere, every day is Today. December 1999 SuMoTuWeThFrSa 01020304 05060708091011 12131415161718 19202122232425 262728293031 November 1999 SuMoTuWeThFrSa 010203040506 07080910111213 14151617181920 21222324252627 282930 October 1999 SuMoTuWeThFrSa 0102 03040506070809 10111213141516 17181920212223 24252627282930 31 September 1999 SuMoTuWeThFrSa 01020304 05060708091011 12131415161718 19202122232425 2627282930 August 1999 SuMoTuWeThFrSa 01020304050607 08091011121314 15161718192021 22232425262728 293031 July 1999 SuMoTuWeThFrSa 010203 04050607080910 11121314151617 18192021222324 25262728293031 #!/usr/bin/perl print "Content-type: text/html\n\r\n\r"; unshift(@INC,"/usr/local/lib/perl5"); srand(); my $rnd = (rand time) % 6; if ($rnd == 1) { print < EOQ } elsif ($rnd == 2) { print < EOQ } elsif ($rnd == 3) { print < EOQ } elsif ($rnd == 4) { print < EOQ } elsif ($rnd == 5) { print < EOQ } else { print < EOQ } June 1999 SuMoTuWeThFrSa 0102030405 06070809101112 13141516171819 20212223242526 27282930 May 1999 SuMoTuWeThFrSa 01 02030405060708 09101112131415 16171819202122 23242526272829 3031 April 1999 SuMoTuWeThFrSa 010203 04050607080910 11121314151617 18192021222324 252627282930 March 1999 SuMoTuWeThFrSa 010203040506 07080910111213 14151617181920 21222324252627 28293031 February 1999 SuMoTuWeThFrSa 010203040506 07080910111213 14151617181920 21222324252627 28 oosp! randval = January 1999 SuMoTuWeThFrSa 0102 03040506070809 10111213141516 17181920212223 24252627282930 31 2003 2002 2001 2000 1998 by title by chance links stuff
2003
2002
2001
2000
1998
Willfully blind self-indulgent nebbish or amusingly quirky old coot? And how bout that local sports team? Discuss among yourselves.
EOQ
} elsif ($rnd == 2) {
print <
EOQ
} elsif ($rnd == 3) {
print <
EOQ
} elsif ($rnd == 4) {
print <
EOQ
} elsif ($rnd == 5) {
print <
EOQ
} else {
print <
EOQ
}
