#!/usr/bin/env perl -w use strict; my $quip = ""; { $/ = "%%\n"; rand($.) < 1 && chomp($quip = $_) while(); } print "Content-Type: text/html\n\n"; print "Fortune Teller Says..."; print ""; print "

$quip

" || "Could not get quote"; print ""; __END__