#!/usr/bin/perl

@PICS = ("SundanceSummit.gif","Summit_Marcie.GIF", "Peter_stove_reduced.GIF",
		"Catoctin.gif", "Tahquitz.gif", "OnBaldy.gif" );

$picIndx = rand($#PICS+1);

$picString = $PICS[$picIndx];
$srcFile = "/Data/Web/peter/images/${picString}";

print "Pragma: no-cache\n";
print "Content-type: image/gif", "\n\n";

open GIFFILE, $srcFile;

while (read GIFFILE, $buf, 1024) {
  print $buf;
  }

close(GIFFILE);

exit(0);