Pretending an Autoloaded Function has a Block Prototype

Question

Let\'s say I have a subroutine that takes a sub as argument.

sub foobar {
    my $block = shift;
    $block->();
}

Then I can call it like