use DBI;
my $drh = DBI->install_driver('Pg') or die;
my $dbh = DBI::_new_dbh($drh) or die;
print $dbh->quote(q{My "" test ' data \\' for quoting'}), "\n";