use strict 'vars';
        $X::foo = 1;         # ok, fully qualified
        my $foo = 10;        # ok, my() var
        local $foo = 9;      # blows up

        package Cinna;
        our $bar;                   # Declares $bar in current package
        $bar = 'HgS';               # ok, global declared via pragma