print  "Connecting to sql db...";
my $db=DBI->connect('DBI:ODBC(AutoCommit => 0):DB') or handleError({ErrorMessage=>'DB Error'.DBI->errstr.$!,Subject=>"Transaction Import Error"});
print  "done\nPreparing command...";

my $statement = $db->prepare("Insert INTO Transactions VALUES (?,?,?,convert(date,?),convert(date,?),?,?,?,?,?,?,?,?,?,?,?,?,?,?)") or handleError({ErrorMessage=>'DB Error'.DBI->errstr.$!,Subject=>"Transaction Import Error"});
print  "Getting data\n";
my $lineno=0;
while ( my $line=$csv->getline($io)){
	++$lineno;
	my @thisline=@{$line};
	push @thisline,$thisline[13]-$thisline[16]+$thisline[17];
	print join(',',@thisline)."\n";
	$statement->execute(@thisline) or handleError({ErrorMessage=>'DB Error'."\n".$DBI::errstr."\n".$DBI::err."\n".$DBI::state."\n".$!,Subject=>"GL Transaction Import Error"});	
	print "$lineno\n";
}

$db->commit();
$db->disconnect();

##</code><code>##

Connecting to sql db...done
Preparing command...Getting data
0,10001,0,2015-10-05 12:00 AM,,74,6928.14,,POD      9085-9086 0001000100,,I,,7576.07,7576.07,,0,6182.34,7363.14,8756.87
1
0,10001,0,2015-10-05 12:00 AM,,44,2027.06,,POD      9075-9076 0001000100,,I,,7576.07,7576.07,,0,6182.34,7363.14,8756.87
calling handleError
calling sendEmail
Creating email...done

##</code><code>##

DB Error
[Microsoft][ODBC SQL Server Driver]String data, right truncation (SQL-22001)
1
22001
Result too large