#!/usr/bin/perl
my ($sec,$min,$hour,$day,$mon,$year) = localtime(time);
$year += 1900;
$mon += 1;
$jdy = $year;
$jdm = $mon;
$nengo = "平成";
$gengo = $year - 1988;
if ($jdm <= 2){
$jdy -= 1;
$jdm += 12;
}
$total_y = int ($jdy * 365.25) + int ($jdy / 400) - int ($jdy / 100);
$total_m = int (30.59 * ($jdm - 2));
$mjd = $total_y + $total_m + $day - 678912;
@kan = ('甲','乙','丙','丁','戊','己','庚','辛','壬','癸');
@eto = ('寅','卯','辰','巳','午','未','申','酉','戌','亥','子','丑');
$kan_num = $mjd % 10;
$eto_num = $mjd % 12;
print <<"HTML";
Content-type: text/html; charset=euc-jp
干支
今日は$nengo$gengo年$mon月$day日、$kan[$kan_num]$eto[$eto_num]です。
HTML
exit;