Add

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

and copy/paste the trace into <code></code> tags