...
my $write_dir = 'G:\research\sec filings 10k and 10Q\data\filing docs\1993\Clean';
...
opendir (my $dir_handle, $files_dir) || die "failed to open '$files_dir' <$!>"; 

 while (my $file = readdir($dir_handle) ) {  
...
     open my $file_handle, "/dwimperl/perl/1993/$file" or die "failed to open '$file' <$!>";
         
         while (my $line = <$file>) {

##</code><code>##

...
         print $write_dir "$file\n";
...