Select Code to Download

$dbh->do("insert into batchpay (source,contract, invoice, substatus, o
+riginal,imported) values (?,?,?,?,?,?)", {}, "$dir-$filename", $data[
+1], $data[2], $status, $line, $datetime );
$dbh->do("insert into batchpay (source,transaction,contract,amount,app
+lied,account,substatus,original,imported) values (?,?,?,?,?,?,?,?,?)"
+, {}, "$dir-$filename", $data[1], $data[2], $data[3], $data[4], $data
+[7], $status, $line, $datetime );
$dbh->do("insert into batchpay (source,contract,amount,tax,applied,nam
+eonpayment,invoice,substatus,original,imported) values (?,?,?,?,?,?,?
+,?,?,?)", {}, "$dir-$filename", $data[1], $data[2], $data[3], $data[5
+], $data[6], $data[7], $status, $line, $datetime );
$dbh->do("insert into batchpay (source,nameonpayment,account,amount,ap
+plied,invoice,substatus,original,imported) values (?,?,?,?,?,?,?,?,?)
+", {}, "$dir-$filename", $data[1], $data[2], $data[4], $data[5], $dat
+a[6], $status, $line, $datetime );

opendir my $fixeddirs, $directory or die "Can't open dir $directory: $
+!\n";
my @files = readdir($fixeddirs);
closedir $fixeddirs;
...
    print "Data parsed with $errorcount errors\n";
    close $fixedfile;
}