I think you should have posted this Seekers
for Perl wisdom... but anyways...

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 outpu
+t: $!\n";
 print OUTFILE "$Directory/$_\n" for (readdir(INDIR));
 close OUTFILE;
 closedir INDIR;
};
[download]

OR:

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