use Date::Manip;

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