#!/usr/local/bin/perl
#####################################
# Creator - gigasoft                #
# Script  - Random Images Displayer #
# Date    - July 14, 2001           #
# Contact - gigasoft2@webtv.net     #
#####################################
use LWP::Simple;
srand(time ^ $$);
# URL to your site below
$base = 'http://url.to.you.site/';
# replace img1 and img2 with your image files
@imgs = ("img1","img2");
$product = get("$base$imgs[rand(@imgs)]");
print "Content-Type: image/jpeg\n\n";
print $product;
exit;