my $yesterday = time();
$yesterday = $yesterday - 86400;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($yesterday);