my $dbh = DBI->connect("dbi:ODBC:$dsn",$user,$pass,$attrs);