$ perl -MO=Deparse -le " use 5.010; state $fudge; " BEGIN { $/ = "\n"; $\ = "\n"; } sub BEGIN { require 5.01; } no feature; use feature ':5.10'; state $fudge; -e syntax OK