Select Code to Download

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