#!/usr/local/bin/perl # # ---------------------------------------------------------------------------- # # BOFH CGI excuse server # # Toby Oxborrow # October 2002 # # ---------------------------------------------------------------------------- use strict; my @quotes; open (FH, '; close FH; my $r = $quotes[int(rand @quotes)]; chomp $r; print "Content-Type: Text/HTML\n\n"; print "

The cause of your problem is...

$r

Refresh for another

";