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