Why can't you use those modules? There's also Date::Calc and Date::PCalc, doing this by hand would be ... painful, but you could have a hash of month lengths keyed by name, then subtract 1970 from the year and total up the days in each month before this one.