Select Code to Download

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

lanx@lanx-1005HA:/tmp$ perl -MO=Deparse -e 'sub foo (&) {}; foo {"foo"
+} . "3"'
sub foo (&) {
...
}
) . '3';
-e syntax OK