Select Code to Download

> perl -MO=Deparse -e "sub foo($); sort foo(42);"
sort foo 42

> perl -MO=Deparse -e "sub foo($){44,33}; print for sort( foo(42), );"
sub foo ($) {
...
> perl -wle "sub foo($){44,33}; print for sort( foo(42), );"
33
44