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

##</code><code>##

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

##</code><code>##

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