If you really just need the last day of the month (rather than the last business day), you might use Date::Simple. You shouldn't have to do fancy tricks with date manipulation to get a simple answer.

use Date::Simple qw(days_in_month);

my $days = days_in_month( 2004, 2 );
[download]