Select Code to Download

# SQL::Interp prints DEBUG to STDERR
# whether TRACE_SQL is enabled
...
# make your query
$db->iquery('SELECT 1')->into(my $one);
say $one;

TRACE_SQL=1 perl my_script.pl
DEBUG:interp[sql=SELECT 1,bind=]
1

[Thu Dec 17 01:15:15 2020] connect(0): dbi:SQLite:dbname=file.dat, , $
+attr = undef;
[Thu Dec 17 01:15:15 2020] DBI: 1.643 , DBIx::LogAny: 0.06, Driver: SQ
+Lite(1.66)
...
[Thu Dec 17 01:15:15 2020] finish(0.0)
[Thu Dec 17 01:15:15 2020] finish(0.0)