print $dbh->quote("$p->{test}");