#!/usr/bin/perl

use strict;
use warnings;

package Foo;

our $x = "blah";

package Bar;

print $Foo::x, "\n";
{
    local $Foo::x;
    print $Foo::x, "\n";
    $Foo::x = 42;
    print $Foo::x, "\n";
}

print $Foo::x, "\n";

##</code><code>##

blah
Use of uninitialized value in print at loc.pl line 15.

42
blah