use strict;
    $main::foo = 1;
    {
        our $foo;
        print $foo, "\n";
    }
    # print $foo, "\n";
    print $main::foo, "\n";