Select Code to Download

$ perl -MO=Deparse -e 'sub foo(&) {;} foo {;} //'
Too many arguments for main::foo at -e line 1, at EOF
...
sub foo (&) {
    
}