Select Code to Download

...
my $write_dir = 'G:\research\sec filings 10k and 10Q\data\filing docs\
+1993\Clean';
...
     open my $file_handle, "/dwimperl/perl/1993/$file" or die "failed 
+to open '$file' <$!>";
         
         while (my $line = <$file>) {

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