use strict;
use DBI;


$| = 1;

my $server_name = 'server name';
my $database_name = 'database name;
my $user = 'database user name';
my $password = 'database password';

my $DSN = "DRIVER={SQL Server};Database=$database_name;Server=$server_name;uid=$user;pwd=$password; Trusted_Connection=False"; 

my $dbh = DBI->connect("dbi:ODBC:$DSN", $user, $password) || die "Couldn't open database: $DBI::errstr\n";

$dbh->disconnect();

##</code><code>##

DBI connect(' ') failed: [Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for user 'company\lsxo'. (SQL-28000) at c:/TEMP/connect2.pl line 14