#!/usr/mesh/bin/perl5
# gctr-ex1d.cgi
# (C) 1997 がま
# E-mail addr : gama@mvg.biglobe.ne.jp
#
# 1997/9/25 Ver0.00
# 2000/2/26 Ver0.02 Y2K
#
# ----------------------------------------------------------
($sec,$min,$hour,$mday,$mon,$year)=localtime;
$date = sprintf "%2.2d\-%2.2d\-%2.2d", $year%100, $mon+1,$mday;
system("./gctr1.cgi $date katt082.gif");