#!/usr/bin/perl -wT
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;

my @quotes = ("Science is organized knowledge. Wisdom is organized life. -
Immanuel Kant",
"Give me a firm place to stand and I will move the earth. - Archimedes",
"Facts do not cease to exist because they are ignored. - Aldous Huxley",
"The best way to have a good idea is to have a lot of ideas. - Linus
Pauling",
"Wisdom begins in wonder. - Socrates",
"Go confidently on the direction of your dreams. Live the life you have imagined. - Henry David Thoreau",
"The universe is full of magnificent things, patiently waiting for our wits to grow sharper. - Eden Philpotts",
"High achievement always takes place in the framework of high expectation.
- Jack Kinder");

print header;
my $quote = $quotes[int(rand($#quotes+1))];
print qq(<b>$quote</b>\n);