use strict;
use warnings;


use DBI;

DBI->trace(15, 'trace.log');

my $dbh = DBI->connect("dbi:ODBC:Greentree", "super", "super", { autocommit => 0 }) or die "connect";