i think your should call the $dbh->disconnect with a independent method in the package definition. for example:

sub finish {
  my $self = shift;
  $self->{'dbh'}->disconnect;
}
[download]