Select Code to Download

 for ($h->header_field_names){
   $csv->print ($fh1, [map {$File::Find::name, $h->header($_), "=CH
+AR(13)"} @fields]);
.
.

#!perl
use strict;
...
    print $fh1 $1,"\n";
  }
}