Date::Calc - 日付の計算use Date::Calc qw(:all); #今日の日付を取得 ($year, $month, $day) = Today(); #現在のタイムスタンプを取得（形式：2003-06-12) ($year, $month, $day, $hour, $min, $sec) = Today_and_Now(); #現在の曜日を数字にて取得 $day_of_week = Day_of_Week($year,$month,$day); #現在の曜日をテキストにて取得 $string_full = Day_of_Week_to_Text($day_of_week); #今日の曜日をテキスト（省略形）にて取得 $string_abb = Day_of_Week_Abbreviation($day_of_week); #昨日の日付を取得 ($d_year, $d_month, $d_day) =
