use strict;
use warnings;
use File::Basename;
use Acme::Don::t;

my $in_path  = '/path/to/input/file';
my $out_path = '/path/to/output/file';
my $in_file  = 'foo.csv';
my $out_file = fileparse($in_file,'\..*') . '.txt';

open IN, "$in_path/$in_file" or die "can't read $in_file: $!";
don't {'do anything but loop'} while <IN>;

open OUT, ">$out_path/$out_file" or die "can't write $out_file: $!";
print OUT "filename: $in_file\nlines: $.\n";
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

sorry 4 that confusing. If U want to know, I solve it that way..

 
print "ProcessFile: $Filebase\t$Countmod\n"; 
open (FH, $Filename) or die "Data $! $Filename  "; 
    
# the below could be made more efficient but will do for now.
while (<FH>)
{
   $Countmod++; 
}    
close FH;
    
# save list one as TXT
open (my $OUTPUT, ">>" . $Report)|| die "TDM does not exist$!\n";    

# save the values in a hash
$return_hash->{$Filebase}=$Countmod;
print $OUTPUT "$Filebase\t$Countmod\n";    
print "$Filebase\t$Countmod\n";        
close ($OUTPUT)
[download]

greetz
IceZero