$dbh=DBI->connect("dbi:MTODBC:PC-NAME:Yield","<usr>","<pw>") || die "$
+DBI::errstr\n";
##</code><code>##

   output: 
   ServerName ABC
   InstanceName SQLEXPRESS
    IsClustered No
        Version 12.0.xxxxxxx
            tcp xxxxx
             np \\ABC\pipe\MSSQL$SQLEXPRESS\sql\query