#!/usr/bin/perl --
use strict; use warnings; use Data::Dump qw/ dd pp /;
use DBI();
Main( @ARGV );
exit( 0 );
sub Main {
    my $att = {qw/RaiseError 1/};
    my $user = my $pass = undef;
    my $dbh = DBI->connect("dbi:ADO:$dsn", $usr, $pwd, $att ) ;
    $dbh->trace(3);
    my $sth = $dbh->prepare( $mssql_select );
    dd( $sth->execute );
    dd( $sth->fetchall_arrayref );
}