現在の「年」「月」「日」「曜日」を得る
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time());
$mon = $mon + 1;
$year = $year + 1900;
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time());
$mon = $mon + 1;
$year = $year + 1900;