使えない場合は、shiritori.cgi、kanri.cgi、bbs.cgiの４行目、use Time::Local;という行の行頭に#をつけてください。
#use Time::Local;
というように。
次に、
###### 期限についての変数を変換。
my $kigen = timelocal(0,0,0,$settei::kigenday,$settei::kigenmonth-1,$settei::kigenyear);
という部分を次のように変換してください。（コピー＆ペーストで）
###### 期限についての変数を変換する。
my $kigen = &decode_time($settei::kigenyear,$settei::kigenmonth,$settei::kigenday,0,0,0,-9);
sub decode_time{
my($year, $mon, $mday, $hour, $min, $sec, $tz) = @_;
my(@mdays, $xtime,$uru);
$year =$year-1900; $mon--;
@mdays = ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334);
$uru = int(($year - 72) / 4);
if (((($year + 1900) % 4) == 0) && ($mon < 2)) { $uru--; }
$xtime = $year - 70;
$xtime = ($xtime * 365) + $mdays[$mon] + $mday + $uru;
$xtime = ($xtime * 24) + $hour + $tz;
$xtime = ($xtime * 60) + $min;
$xtime = ($xtime * 60) + $sec;
return($xtime);
}