#!/usr/mesh/bin/perl5
# gctr-ex0.cgi
# (C) 1997 がま
# E-mail addr : gama@mvg.biglobe.ne.jp
#
# 1997/9/25 Ver0.00
#
#/////////////////////////////////////////////////////
open(FCTR,"+<gctr1.dat");
$num=<FCTR> + 1;
seek(FCTR, 0, 0);
printf(FCTR "%d", $num);
close(FCTR);
$num = sprintf("%6.6d", $num);
system("./gctr1.cgi $num army.gif");