BEGIN { $^W = 1; }
LINE: while (defined($_ = <ARGV>)) {
    BEGIN {
        $^H{'feature_say'} = q(1);
        $^H{'feature_state'} = q(1);
        $^H{'feature_switch'} = q(1);
    }
    $s += $_;
}
{
    $s->say;
}
-e syntax OK
$