#!/usr/bin/perl

# Define Variables
$basedir = "images/";
@images = ("spin.jpg","apin.jpg","tpin.jpg");
@alt = ("s","a","t");

# Done
##############################################################################

srand(time ^ $$);
$num = rand(@images); # Pick a Random Number

# Print Out Header With Random Filename and Base Directory
#print "Content-type: text/html\n\n";
print "$basedir$images[$num]";
#print "\n";