Check out the Days_in_Month routine from the Date::Calc module, which might already be installed on your system. If not, it's certainly available from CPAN and, I'm almost positive, from PPM as well.

Chris
M-x auto-bs-mode