SQL - trace SQL statements executed
      (not yet implemented in DBI but implemented in some DBDs)

##</code><code>##

$ sqlite3 pm_11137916_anon
SQLite version 3.34.0 2020-12-01 16:14:00
Enter ".help" for usage hints.
sqlite> create table Planet (id, name, type);
sqlite> insert into Planet values (3, 'Earth', 'rock');
sqlite> insert into Planet values (5, 'Jupiter', 'gas');
sqlite> insert into Planet values (9, 'Pluto', 'dwarf');
sqlite> select * from Planet;
3|Earth|rock
5|Jupiter|gas
9|Pluto|dwarf
sqlite>

##</code><code>##

#!/usr/bin/env perl

use strict;
use warnings;

use DBI;
DBI->trace(0);
my $dbh = DBI->connect('dbi:SQLite:dbname=pm_11137916_anon');

print join('|', @$_), "\n" for $dbh->selectall_array('select * from Planet');

##</code><code>##

$ ./trace_none.pl
3|Earth|rock
5|Jupiter|gas
9|Pluto|dwarf

##</code><code>##

$ ls -al *.out
-rw-r--r-- 1 ken None  1839 Oct 24 03:50 trace_dbi_1.out
-rw-r--r-- 1 ken None  1853 Oct 24 03:51 trace_dbi_1_sql.out
-rw-r--r-- 1 ken None 16771 Oct 24 04:14 trace_dbi_15.out
-rw-r--r-- 1 ken None 16893 Oct 24 04:15 trace_dbi_15_sql.out
-rw-r--r-- 1 ken None  6512 Oct 24 03:45 trace_dbi_4.out
-rw-r--r-- 1 ken None  6570 Oct 24 03:45 trace_dbi_4_sql.out
-rw-r--r-- 1 ken None 10574 Oct 24 04:02 trace_dbi_5.out
-rw-r--r-- 1 ken None 10632 Oct 24 04:03 trace_dbi_5_sql.out