¿Cómo puedo imprimir la consulta SQL ejecutada después de que DBI de Perl complete los marcadores de posición?

Consulte Rastreo en DBI . Lo siguiente funciona usando DBD::SQLite pero produce muchos resultados:

$dbh->trace($dbh->parse_trace_flags('SQL|1|test'));

Salida:

<- prepare('SELECT ... FROM ... WHERE ... = ?')= DBI::st=HASH(0x21ee924) at booklet-excel.pl line 213

<- execute('Inhaler')= '0E0' at booklet-excel.pl line 215

etc etc.

Podría conectar su propio filtro al flujo de rastreo mantener solo prepare s.