Как установить соединение с MS SQL и отправить запрос?

#!perl -w
use strict;
use Win32::SqlServer;
use Time::localtime;
use feature ":5.10";
 
my $tm = localtime;
my ($day, $month, $year) = ($tm->mday, $tm->mon + 1, $tm->year + 1900);
my $end_date = $year.'-'.sprintf("%.2ld", $month).'-'.sprintf("%.2ld", $day);
 
open INFILE, '\\\\10.11.12.136\\exec1\\'.$end_date.'.log' || die('Unable to open input file.');
my $res = "";
while (<INFILE>) {
    chomp;
    if (m/Accounts:/) {
        $res = "\'".$';
        $res =~ s/,/\', \'/g;
        $res =~ s/;/\'/g;
        $res =~ s/\/[^']*'/'/g;
    }
}
close INFILE;
 
open INFILE, '\\\\10.11.12.137\\exec2\\'.$end_date.'.log' || die('Unable to open input file.');
my $res1 = "";
while (<INFILE>) {
    chomp;
    if (m/Accounts:/) {
        $res1 = "\'".$';
        $res1 =~ s/,/\', \'/g;
        $res1 =~ s/;/\'/g;
        $res1 =~ s/\/[^']*'/'/g;
    }
}
close INFILE;
 
my $sqlsrv = sql_init('10.22.31.108', 'Alex', 'Alex19987', 'bd_test');
 
my $st = <<SQLEND;
select account, date_end from exec_history AS h (NOLOCK)
Where account in (
SQLEND
        
$st .= $res.' , '.$res1;
 
$st .= <<SQLEND;
)
And account Not In (Select account
                  From exec_history AS h (NOLOCK)
                    Where [status] = 1)
SQLEND
 
my @result = $sqlsrv->sql($st, Win32::SqlServer::LIST, Win32::SqlServer::COLINFO_NAMES);
 
#$mess .= join ("</b></td><td align=center bgcolor=#dfdfdf><b>", @{$result[0]});
 
open OUTFILE, '>result.txt' || die('Unable to open input file.');
 
foreach my $row (@result[1..$#result])
{
        print OUTFILE join("\t", @$row), "\n";
}
 
close OUTFILE;