Select Code to Download

#!/usr/bin/perl
use DBI;
...
my $pw = 'Password';
my $dsn = DRIVER=/usr/local/lib/libtdsodbc.so;SERVER=$host;PORT=4433;D
+ATABASE=dataBase;UID=$usr;PW=$pw;TDS_Version=8.0";
my $dbh = DBI->connect('DBI:ODBC:'.$dsn) || die $DBI::errstr;