my $dbh = DBI->connect("dbi:ODBC:$datasource", $username, $password
        , {LongReadLen => 1500, RaiseError => 1})
		|| die "Error connecting: $!";