#!/bin/perl
print "Content-type: text/html\n\n";
$default = "/e1.gif";
open(F,"chgif.cnt");
while(<F>){
	$count = $_;
}
close(F);
open(F,"chgif.dat");
$i=0;
while(<F>){
	if($i<$count){
		$pic =$_;
	}
	$i+=1;
	
}
close(F);
if($pic =~ /END/){
	$pic=$default;
	$count = 0;
}
open(F,">chgif.cnt");
print F $count+1;
#print $count+1;
close(F);
print "<BODY BGCOLOR=#000000><CENTER><BR><IMG SRC=$pic><br><img src=/run.gif></BODY>";
