perldoc DBI

##</code><code>##

   $sql="Select * from table where column=?";
   DBI->trace(2); # turn trace on
   $rh=$dbh->prepare($sql);
   $rh->execute($str);
   DBI->trace(0); # turn trace off