#!/usr/bin/perl -w
use strict;
srand;
 
my $quotes_file = '../quotes/quotes.txt';

open (QFILE, "<$quotes_file")
  || die "Error: could not open $quotes_file:$!\n";
my @quotes = <QFILE>;
my $quote = $quotes[rand(@quotes)];
 
print "Content-Type: text/html\n\n";
print "$quote";