Select Code to Download

D:\Users\lanx>perl -MO=Deparse,-p -e"sub { return 1 and 0 }"
sub {
    ((return 1) and 0);
}
;
-e syntax OK

D:\Users\lanx>perl -MO=Deparse,-p,-x7 -e"sub { 0 if return 1 }"
sub {
...
}
;
-e syntax OK