sub ArchiveDir
{
 my $Directory=shift||'.';
 my $OutputFile=shift||'dircontents.txt';
 opendir INDIR,$Directory or die "Cannot open $Directory: $!\n";
 open OUTFILE,">$OutputFile" or die "Cannot open $OutputFile for output: $!\n";
 print OUTFILE "$Directory/$_\n" for (readdir(INDIR));
 close OUTFILE;
 closedir INDIR;
};

##</code><code>##

sub ArchiveDir
{
 my $Directory=shift||'.';
 my $OutputFile=shift||'dircontents.txt';
 open OUTFILE,">$OutputFile" or die "Cannot open $OutputFile for output: $!\n";
 print OUTFILE "$_\n" for <$Directory/*>;
 close OUTFILE;
};