#!/usr/bin/perl
use warnings; 
use strict;
use Class::CSV;
my ($csv, $inputfilename, $resultfile, $fh, $line, $dir, $fp, $count);
$dir = 'C:\TestData';
open $resultfile, '>>', 'input.csv' or die "Can't open file: $!";
foreach $fp (glob("$dir/*.bat")) {
  #printf "%s\n", $fp;
  open ($fh, "<", $fp) or die "can't read open '$fp':";
    
  while ($line = <$fh>) {
  #$line=~s/-l//;
	$line=~ s/ /,/g;
	print $resultfile $line;
	print $resultfile "\n";
	print $line;
  }
}
  close $fh or die "can't read close '$fp':";