#!/usr/bin/perl

# Define Variables
$basedir =
"images/";
@images =
("1pin.jpg","2pin.jpg","3pin.jpg","4pin.jpg","5pin.jpg","6pin.jpg","7pin.jpg","8pin.jpg","9pin.jpg","0pin.jpg");
@alt = ("1","2","3","4","5","6","7","8","9","0");

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

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

# Print Out Header With Random Filename and Base Directory

print "$basedir$images[$num]";