Select Code to Download

{
   local $sth->{TraceLevel} = "2|SQL";
   $rv = $sth->execute(@args)
     or die $sth->errstr;
}

    DBI::st=HASH(0x2910b18) trace level set to 0x100/2 (DBI @ 0x0/0) i
+n DBI 1.623-ithread (pid 7420)
    -> execute for DBD::mysql::st (DBI::st=HASH(0x2910ab8)~0x2910b18 '
+xLangsdorf') thr#309f18
...
        -> dbd_st_STORE_attrib for 02497600, key TraceLevel
        <- dbd_st_STORE_attrib for 02497600, result 0
    <- STORE= ( 1 ) [1 items] at placeholder.pl line 56

   open my $trace_fh, ">", \ my $trace_out;
   
...
   $rv = $sth->execute(@args)
     or die parse($trace_out) . "\n" .$sth->errstr;
}