#!/usr/bin/perl
@files = ("randmm1/001.jpg","randmm1/002.jpg","randmm1/003.jpg","randmm1/004.jpg","randmm1/005.jpg","randmm1/006.jpg","randmm1/007.jpg","randmm1/008.jpg","randmm1/009.jpg","randmm1/010.jpg","randmm1/011.jpg","randmm1/012.jpg","randmm1/013.jpg","randmm1/014.jpg","randmm1/015.jpg","randmm1/016.jpg","randmm1/017.jpg","randmm1/018.jpg","randmm1/019.jpg","randmm1/020.jpg","randmm1/021.jpg","randmm1/022.jpg","randmm1/023.jpg","randmm1/024.jpg","randmm1/025.jpg","randmm1/026.jpg");
srand(time ^ $$);
$num = rand(@files);
# Print out the image.
 print "Content-type: image/jpeg\n\n";
 @jpgdata = `cat $files[$num]`;
 print @jpgdata;