月の最後の日

各月の日数を取得したい。もしくは各月の最終日を取得したい。

use Date::Calc qw( Today Days_in_Month );

my ( $year, $month, $day ) = Today;
$days = Days_in_Month( $year, $month );

こんなんも見つけた。
各月の日数。

@list = (
　　　31,
　　　((($y % 4 == 0) and ($y % 100)) or ($y % 400 == 0)) ? 29 : 28,
　　　31, 30, 31, 30, 31, 31, 30, 31, 30, 31
);

しかし、時間の計算系はいっぱいモジュールがあるなぁ。