Select Code to Download

<img src="randimage.cgi" border="2" alt="[mini-beast]">

#!/usr/bin/perl -wT
use strict;
my @files = glob("./jpegs/*.jpg");
print "Location: $files[int(rand @files)]\n\n";