# connect
my $dbh = DBI->connect_cached(...)

# then add
sub DESTROY {
  if (defined $dbh) {
    $dbh->disconnect();
  }
}