heisei.pl

#!/usr/local/bin/perl

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time
- 10 * 60*60*24*365 - 10*60*60*24*30 - 5 * 60*60*24);
#printf "平成%s年", $year == 89 ? '元' : $year - 88
#if (!$kaigen && ($year > 89 || $year == 89 && $yday > 6));
!$kaigen && $year > 88 && 
    ($year == 89 && $yday > 6 && ($heisei = 'gan') || ($heisei = $year - 88));
	printf "kotoshi ha $heisei nen" if $heisei;

print "$year/$mon/$mday";