my $dbh = DBI->connect("DBI:ODBC:$db",$user, $pass, {RaiseError => 1});
my $dbh = DBI->connect("DBI:ODBC:$ibm",$user, $pass) || print "Connect fail: $!";