平成何年かを計算するスクリプト

入力された西暦から平成何年かを計算するスクリプトです。
自分が年号を忘れっぽい性質なのでいざというときのために作っておきました。
Perlで書きました

if (@ARGV < 1 || @ARGV > 1) {
    die "USAGE: perl nengo.pl \$year\n";
}

$year = shift @ARGV;

if($year < 1989) {
    print "平成ではない.\n";
} else {
    $heisei = $year - 1989 + 1;
    print "平成$heisei年\n";
}

実行結果は以下の通り。

% perl nengo.pl 2015
% 平成27年

使い所はほぼ無いと思われるのが残念。