#!/usr/bin/perl

$linkfile = "/home/rabble/public_html/apps/randomlinks/database";

open (LINKS, "$linkfile");
srand();
$nlines=@file=<LINKS>;
print "Location: $file[int rand $nlines]\n\n";

close (LINKS);

exit;