##Set LocalTime.
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
$year = $year + 1900;

$mday=$mday-1;

my $curLogDate = $year."0".$mon."0".$mday;