#!/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 "$basedir$images[$num]";