$ perl5.10 -MO=Deparse,-p -E 'say for 1..2'
BEGIN {
    $^H{'feature_say'} = q(1);
    $^H{'feature_state'} = q(1);
    $^H{'feature_switch'} = q(1);
}
;
say($_) foreach (1 .. 2);
-e syntax OK