my $dbh = DBI->connect(...);
my $sth = $dbh->prepare(...);
...
$dbh->finish();

##</code><code>##

$sth->finish();