Or the much more practical:

my $yesterday = localtime;
sleep 86400;
print "yesterday, it was $yesterday\n";
[download]