#!/usr/bin/perl
use strict;
use warnings;
use DBIx::SQLEngine;

eval {
my $engine = DBIx::SQLEngine->new'DBI:mssql:MyDB:127.0.0.1', 'sa', 'sql',
{
RaiseError => 1,
ShowErrorStatement => 1,
}
);
#... and so fourth....