I think it was more like:

Q.	How do I get yesterday's date?
A.	$yesterday = localtime; sleep 86400; print "It was $yesterday\n";

-- Randal L. Schwartz, Perl hacker