use Date::Simple qw(today);

$date = today() - 1;
    
print $date;