Select Code to Download

2;0 juerd@ouranos:~$ perl -MO=Deparse,-p -e'sub one { 1 } sub two { 2 
+} sub three { 3 } print one() - three() + two()'
sub one {
...
    3;
}
print(((one() - three()) + two()));

2;0 juerd@ouranos:~$ perl -le'sub foo { print "foo"; return 1 } sub ba
+r { print "bar"; return 2 } print foo + bar'
bar
...
foo
bar
2