Select Code to Download

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