or download this
#$winauth is set from the command line to force 'Windows Authenticatio
+n'
my $auth = $winauth ? 'Trusted_Connection=yes' : "uid=$username;pwd=$p
+assword;";
my $DSN = "driver={SQL Server};Server=$server;database=$database;$auth
+";
my $dbh = DBI->connect("dbi:ODBC:$DSN") || die "Error: $DBI::errstr";