perl -ce 'sub foo (&) {} (foo {;}) // 7'