Help for this page
chdir $dirName;
$txtfile = $dirName . '\\' . $txtfile;
use warnings;
#!/usr/bin/perl use strict; ... print $output_fh $file; close $output_fh; }