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