sub foo {
    my $func = shift;
    $func->(@_);
}