#!/usr/local/bin/perl print ("Content-type: text/html\n\n"); srand; open (IN, '/cgi/quotes.txt'); @quotes = ; close IN; chop @quotes; $num_quotes = @quotes; $index = int (rand($num_quotes)) + 1; ($quote, $author) = split (/\|/, $quotes[$index], 2); if ($quote !~ /^"/) { $quote = """ . $quote; } if ($quote !~ /"$/) { $quote = $quote . """; } print <<"END_HTML"; Quote of the Day
Quote of the Day

World Government Quotes




$quote

- $author



Home Definitions Forms Documents
World Citizen Referendum World Syntegrity Project


Copyright (c) 2007 World Service Authority. All rights reserved.
If you would like to send mail to World Service Authority,
please use this address: WorldCitizen\@compuserve.com

Logo
The World Service Authority, and the human-in-globe logo are
service marks or registered service marks of the World
Service Authority throughout the world.

END_HTML