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