my $yesterdays_date = localtime;
 sleep 86400;
 print "Yesterday, it was $yesterdays_date\n";
 sleep -86400;