----------------------- Paste code example 1
#!/usr/bin/perl -w
use strict;
use DBI;
use DBD::ODBC;
my $DSN = 'driver={SQL Server};Server=Server05;database=Payroll;uid=JohnSmith;'
my $dbh = DBI->connect("dbi:ODBC:$DSN") or die "$DBI::errstr\n";
---------------------- End Paste code example 1