Select Code to Download

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);