my $s = $h->prepare(q/select * from mje where a = ?/);
$s->execute(1);

my $sql = $s->{Statement};
my $pvals = $s->{ParamValues};
my $params = '';
foreach (keys %$pvals) {
    $params .= " $_ = $pvals->{$_}"
}
print "$sql $params\n";
# outputs select * from mje where a = ?  1 = 1