use DateTime;

my $date = DateTime
    ->now
    ->truncate( to => 'month' )
    ->add( months => 1, days => -1 );

print $date->day;