#!/usr/athena/bin/perl

open(LIST, "/var/www/data/random-url-list"); srand;
while(<LIST>){ chop; $url[$i++]=$_; }
$n = rand($i-1); $forward = $url[$n]; print("Location: $forward\n\n");