use Date::Calc qw( Today Days_in_Month Day_of_Week Day_of_Week_to_Text
                   Add_Delta_YM );

my ( $year, $month, $date ) = Today();

( $year, $month, $date ) = Add_Delta_YM( $year, $month, $date,
                                         0, -1 );

my $day = ( Days_in_Month($year,$month) )[-1];

print $day, "\n";

print Day_of_Week_to_Text(
                          Day_of_Week($year,$month,$day)
                          ), "\n";