use POSIX qw(locale_h);
.
.
my $dbh = DBI->connect("DBI:ODBC:$dsn") or die "Could not connect to $dsn\n";
setlocale(LC_NUMERIC, "C");
.
.