Select Code to Download

sub ArchiveDir
{
...
 close OUTFILE;
 closedir INDIR;
};

sub ArchiveDir
{
...
 print OUTFILE "$_\n" for <$Directory/*>;
 close OUTFILE;
};