my $dbh = DBI->connect("DBI:ODBC:$dsn") or 
die "Could not connect to $dsn >> $DBI::errstr\n";