Select Code to Download

use DBI;
use CGI;
...
$test = $p->{test};
print "element is $test, quoted element is " .
  $dbh->quote($test) . "\n";

DBI->trace(2, 'dbitrace.log');