sub do_this {
    my ($dbh) = @_;
    my $sth = $dbh->prepare(...);
    $sth->execute(...);
    # fetchrow...
    # ende des blocks. hier wird $sth ungültig und automatisch finish aufgerufen
}