#!/usr/bin/perl
####
# expandinghead.net
# Simple random file script. Use to add a sound
# or image file to a document, or redirect a browser
# to a random URL.
# Substitute your URLs into the '@file' array below.
# Add as many as you wish following the format shown.
# - (quotes around URL - comma between URLs).
####
# Link to the script URL from an HTML document or
# use the object element to embed the script URL. 
####
my (@file, $file, $rand, $url);

@file = ("http://url_of_file",
         "http://url_of_file",
         "http://url_of_file",
         "http://url_of_file",
         "http://url_of_file",
         "http://url_of_file");

$rand = int(rand(@file));
$url = $file[$rand];
print "Location: $url\n\n";