そういえば前スレで西暦0年から使えるtimeみたいなモジュールが欲しいって言ってる奴がいたな
ほれモジュールだ

package AC1;
sub timeultimatesuperavanced{
my $val;
$val = time * 1970 * 365 * 24 * 60 * 60;
return $val;
}
1;