use Date::Simple qw/today/;
use 5.010;

my $d = today;
my $month = $d->month;
$d-- while $month == $d->month;
say $d;