sub ErrorHandler {
   my ($sqlstate, $msg, $nativeerr) = @_;
   # Strip out all of the driver ID stuff
   $msg =~ s/^(\[[\w\s:]*\])+//;
   print $msg;
   print "===> state: $sqlstate msg: $msg nativeerr: $nativeerr\n";
   return 1;
}

##</code><code>##

DBD::ODBC::st execute failed: [Microsoft][SQL Server Native Client 11.0][SQL Server]Arithmetic overflow error converting float to data type numeric. (SQL-22003)