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