use strict;
use Data::Dumper;
use DBI;
my $h = DBI->connect;
my $s =
$h->prepare(q/insert into mje values(?)/);
$s->bind_param(1, 2);
$s->execute;

my $ParamValues = $s->{ParamValues} || {};
my $ParamTypes  = $s->{ParamTypes}  || {};

print Dumper($ParamValues);
print Dumper($ParamTypes);

my $s2 = $h->prepare(q/insert into mje2 values(?)/);
$s2->bind_param($_, $ParamValues->{$_}, $ParamTypes->{$_})
    for keys %{ %$ParamValues, %$ParamTypes };