Select Code to Download

chdir $dirName;

$txtfile = $dirName . '\\' . $txtfile;

use warnings;

#!/usr/bin/perl
use strict;
...
    print $output_fh $file;
    close $output_fh;
}