my @t = localtime(time-86400);
my $y = $t[5]+1900;
my $m = $t[4]+1;
my $d = $t[3];
my $file = sprintf("%04d-%02d-%02d", $y, $m, $d);
open(F, ">", "unfinished/$file");
close(F);