怎么用perl统计每月有多少天?

怎么用perl统计每月有多少天?

统计每月有多少天,输出到一个变量中................
如果没记错的话:
1, 3, 5, 7, 8, 10, 12   - 31
4, 6, 9, 11 - 30
润年2 - 29 非润年 2 - 28

另外CPAN的Date::Manip和Date::Calc都行.
用Date::Calc   可以举个例子吗  本人还不是很懂  太菜了
要查看模块的帮助的,可以使用perldoc module
比如上面的Date::Calc

perldoc Date::Calc