my $dbh = DBI->connect( "DBI:ODBC:myDSN", "myname", "mypassword") or
   die ("Could not make connection to database: $DBI::errstr");