use Date::Simple qw(today);

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

##</code><code>##

use Date::Manip;

$date = ParseDate("yesterday");
    
print $date;

##</code><code>##

use Date::PeriodParser;

$date = parse_period("yesterday");
    
print scalar localtime( $date );