Time::DaysInMonth -- simply report the number of days in a month
use Time::DaysInMonth;
$days = days_in($year, $month_1_to_12);
$leapyear = is_leap($year);
DaysInMonth is simply a package to report the number of days in a month. That's all it does. Really!
David Muir Sharnoff <muir@idiom.org>
This only deals with the "modern" calendar. Look elsewhere for historical time and date support.
Copyright (C) 1996-1999 David Muir Sharnoff. License hereby granted for anyone to use, modify or redistribute this module at their own risk. Please feed useful changes back to muir@idiom.org.