foreach my $file (readdir D) {
   my ($filebase, $dirname, $ext) = fileparse($file, '\..*');
   my $csvFile = "$opts{d}\\$filebase.csv";
   open FILE_OUT, ">$csvFile" or die ...;