you can find yesterday's yyyymmdd using

my $timestampminus = time - 24 * 60 * 60;

my ($year, $month, $day) = (localtime($timestampminus))[5,4,3];

$year += 1900;
$month++;

print "Yesterday was $year$month$day.\n";
[download]