昨日は何年何月何日

@a = (localtime(time - 60*60*24))[5,4,3];
$a[0] += 1900;
$a[1] += 1;
print join "", @a;

1日前なら、epoch から 60sec * 60min * 24hour 引いたものの localtime を求めればすぐ。