#!/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


- $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

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.