my $result = eval { $block->(@_) };