my $dbh = DBI->connect('DBI:ODBC:dsn=x;app=ApplicationName',$login,$password);