use DBI;
use CGI;

$q = new CGI("test=foo");
$p = $q->Vars;
$dbh = DBI->connect("dbi:mysql:test");

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

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