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