$ perl -MO=Deparse -e 'use v5.36; sub ONE :prototype() { 1 } if (ONE) { print ONE if ONE }'
sub ONE () {
    1;
}
sub BEGIN {
    require v5.36;
    ()
}
use warnings;
use strict;
no feature ':all';
use feature ':5.36';
do {
    print 1
};
-e syntax OK