my $DSN = 'driver=Oracle ODBC Driver;dbq=myDSN';
my $dbh = DBI->connect( "DBI:ODBC:$DSN", "name", "password") or 
   die ("Could not make connection to database: $DBI::errstr");