my($sec, $min, $hour, $day, $mon, $TIME, $wday) = localtime(time);

# 取得した値を調整（リファレンス参照）
$TIME+= 1900;