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

my $d = today;
$d = ymd($d->year, $d->month, 1) - 1;
say $d;