...
my $guard = My::Guard->new(sub { $sth->finish });
...