----------------------- Paste code example 2
#!/usr/bin/perl -w
use strict;
use DBI;
use DBD::ODBC;
my $DSN = 'driver={SQL Server};Server=10.0.0.53:1433;Database=Payroll;Uid=JohnSmith;Pwd=Hello;';
my $dbh = DBI->connect("dbi:ODBC:$DSN") or die ($DBI::errstr . "\n");
---------------------- End Paste code example 2