transaction $dbh => sub { ... };