[~] $ perl -MO=Deparse -e'sub D(){0}print"foo"if D'
sub D () {
    0;
}
'???';
-e syntax OK
[~] $ perl -MO=Deparse -e'sub D(){1}print"foo"if D'
sub D () {
    1;
}
print 'foo';
-e syntax OK