package YourClass;

[... use strict etc ...]]
our @ISA = qw(DBI);

[... andere Methoden ...]

sub prepare{
  my ($self,@params) = @_;
  my $sth = SUPER::prepare(@params);
  my $nr = ++$self->{nr};
  push(@{$self->{sth}},$sth);
  my $tmpObj = HelperClass->new($self,$sth,$nr);
  return $tmpObj;
}

sub execute{
  my ($self,$nr,@params) = @_;
  [... logging ...]
  $self->{sth}->[$nr]->execute(@params);
}