#!/usr/bin/perl 
open (LINKS, "/usr/local/etc/httpd/htdocs/rand.list");
srand();                        # kick rand
$nlines=@file=<LINKS>;          # inhale file & get # of lines
print "Location: $file[int rand $nlines]\n\n";  # print a random line
close (LINKS);
exit;