use DateTime;
my $dt = DateTime->last_day_of_month(
    year   => 2003,
    month  => 10,
    hour   => 1,
    minute => 30,
    second => 0,
);
print "Last day of month is " . $dt->day_name() . "\n";