Help for this page
opendir(D, "unfinished/") or die "unable to open unfinished/: $!\n"; my @files = readdir(D); ... rename("unfinished/$file", "completed/$file"); } }
my @t = localtime(time-86400); my $y = $t[5]+1900; ... my $file = sprintf("%04d-%02d-%02d", $y, $m, $d); open(F, ">", "unfinished/$file"); close(F);