my $sth;
my $dbh->connect(......
END{ $sth->finish if $sth; $dbh->disconnect if $dbh }

# now do whatever