{
    our $z = 5;
    print $z, "\n";  #5
}

# print $z, "\n";  #error
print $main::z, "\n";  #5

{
    use vars qw{$s};
    $s = 'bye';

    print $s, "\n";  #bye
}

print $s, "\n";  #bye