#!/usr/bin/perl
$|=1;
$mypic[0]="/home/sassman/public_html/image/GoodDog-digits/0gdc1.gif";
$mypic[1]="/home/sassman/public_html/image/GoodDog-digits/1gdc1.gif";
$mypic[2]="/home/sassman/public_html/image/GoodDog-digits/2gdc1.gif";
$mypic[3]="/home/sassman/public_html/image/GoodDog-digits/3gdc1.gif";
$mypic[4]="/home/sassman/public_html/image/GoodDog-digits/4gdc1.gif";
$mypic[5]="../image/GoodDog-digits/5gdc1.gif";
$mypic[6]="../image/GoodDog-digits/6gdc1.gif";
$mypic[7]="../image/GoodDog-digits/7gdc1.gif";
$mypic[8]="../image/GoodDog-digits/8gdc1.gif";
$mypic[9]="../image/GoodDog-digits/9gdc1.gif";
srand(time ^ $$);
$pick = rand(@mypic);
print "Content-type: image/gif\n\n";
open (BANNER,$mypic[$pick]);
print <BANNER> ;
close (BANNER);