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