my $time = POSIX::strftime "%Y%m%d",localtime;
sleep 86400;     # wait until tomorrow :-)
my $log = $time . ".log";