Select Code to Download

$ perl -MO=Deparse -e 'sub foo { 1 for 1 } foo'
sub foo {
...
}
foo ;
-e syntax OK