#!/usr/bin/perl  --
use strict;
use warnings;
use DBI;
DBI->trace(2);
# DBI->trace(2 => 'trace.log');