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