> perl -MO=Deparse -E'if (1) { label: say 1;}; goto label'
BEGIN {
    $^H{'feature_say'} = q(1);
    $^H{'feature_state'} = q(1);
    $^H{'feature_switch'} = q(1);
}
do {
    label: say 1
};
goto label;