#!/usr/local/bin/perl 

$cnt_file="count/index.cnt";
$lock_file="count/index.lock";

if ( -f $lock_file ) {
        open( IN, "$cnt_file" );
        $cnt = <IN>;
        close( IN );
        $cnt ++;
} else {
        open( OUT, "> $lock_file" );
        close( OUT );
        if ( -f $cnt_file ) {
                open( IN, "$cnt_file" );
                $cnt = <IN>;
                close( IN );
                $cnt ++;
        } else {
                $cnt=1;
        }
        open( OUT, "> $cnt_file" );
        printf OUT "%d", $cnt;
        close( OUT );
        unlink("$lock_file");
}

$_=$cnt;
while(s/^.//){
        print "<IMG SRC=\"./count/gifimage/$&.gif\">";
}