Easiest way to find yesterday's date in Perl

my ($year, $month, $day) = (localtime(time + 7 * 24 * 60 * 60))[5,4,3];
$year += 1900;
$month++;