#!/usr/local/bin/perl

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