I am looping through files in a directory and printing to csv files with:
.
.
opendir D, $opts{d} or die ...;
.
.
foreach my $file (readdir D)
{
my ($filebase, $dirname, $ext) = fileparse($file, '\..*');
my $csvFile = "$opts{d}\\$filebase.csv";
open FILE_OUT, ">$csvFile" or die ...;
...