#!/usr/bin/perl -Tw use strict; my $data = "/path/to/quotes/here"; my $output; $/ = "\n"; $data = '/path/to/quotes/here'; open DATA, $data or die "can't open data file: $!\n"; srand; rand($.) < 1 && ($output = $_) while ; print "Content-type: text/html\n\n\n"; print "this is the random quote server\n"; print "\n"; print "

\n"; print "

$output
";