#!/usr/local/bin/perl
# Script: witty.pl

$WITTY_DIR='./witty';
$WITTY_COUNT=100;

# set random seed and pull a name from the hat
srand(time);
$number = int(rand($WITTY_COUNT));

# Return the location of this file to the browser
print "Location: $WITTY_DIR/witty$number.html\n\n";