Select Code to Download

 
set TRANSACTION ISOLATION LEVEL READ UNCOMMITTED;
set quoted_identifier on use "smdb";
...
"_SMDBA_"."_PERSONNEL_".CODE LIKE 'MUSER' AND 
"_SMDBA_"."_TELMASTE_".STATUS = 'O'
ORDER BY "Problem #";

 
my $DSN = 'server=sqlsrv;database=\"smdb\"';
#my $DSN = 'server=sqlsrv';
...
     print "<TR><TD>",join("</TD><TD>",@row), "</TD></TR>\n";
   }
}

$db_handle -> execute or die "$DBI::errstr"

$db_handle -> prepare("select \@\@servername");