my $yesterday = localtime;
sleep( 86400 );
print "Yesterdays date is $yesterday\n";