#!/usr/bin/perl
@files = ("rand3/001.jpg","rand3/002.jpg","rand3/003.jpg","rand3/004.jpg","rand3/005.jpg","rand3/006.jpg","rand3/007.jpg","rand3/008.jpg","rand3/009.jpg","rand3/010.jpg","rand3/011.jpg","rand3/012.jpg");
srand(time ^ $$);
$num = rand(@files);
# Print out the image.
 print "Content-type: image/jpeg\n\n";
 @jpgdata = `cat $files[$num]`;
 print @jpgdata;