#!/usr/bin/perl
$datafile = "counter.dat";
open(DATA, "$datafile");
$number = <DATA>;
close(DATA);
$number = $number + 1;
open(DATA,">$datafile");
print DATA $number;
close(DATA);
@counter = split(//,$number);
print "<IMG SRC=st.gif>";
foreach $key (@counter){
	print "<IMG SRC=\"$key.gif\" ALT=\"$key\">";
}
print "<IMG SRC=ed.gif>";