#!/usr/bin/perl -wT
use strict;

# Call in img tag - e.g.: <img src="randimage.cgi" border="2">
my @files = glob("./jpegs/*.jpg");
print "Location: $files[int(rand @files)]\n\n";