#!/usr/bin/perl -wT
use strict;
use URI;
my @files = glob("./images/*");
my $file = URI->new_abs($files[int(rand @files)], "http://bugzilla");
print "Status: 307 Temporary redirect\n";
print "Location: $file\n\n";