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