sub foo (&) {
    my ($sub) = @_;

    ...
}

# Usage:

foo {
    ...
};