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