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