Select Code to Download

#!/opt/perl-5.20/bin/perl
use strict;
...
  print "\n";
  $sth->trace(0); # always switch off
}

--> trace_test() start.  trace = 256, passed 'SQL'
EXECUTE select id from t where id = $1 (
...
EXECUTE dbdpg_p15160_1 (
$1: 1000
);