Select Code to Download

foreach(@files) {
   system("c:\\midicsv\\midicsv.exe", "c:\\midicsv\\newmidi\\$_", "c:\
+\midicsv\\newcsv\\$_")
}

my $file = "C:\\temp\\somefile.csv";
my $midfile = $file; # copy it
$midfile =~ s/\.csv$/.mid/i;