set DBI_TRACE=DBD=x.log perl mycode.pl