package foo;
my $foo = 5;
my $bar = 7;

sub set_foobar {
  $foo = 6;
  $foo::bar = 8;
}

##</code><code>##

use foo;

print $foo::foo,"\n";
print $foo::bar,"\n";

foo::set_foobar();

print $foo::foo,"\n";
print $foo::bar,"\n";

##</code><code>##

Use of uninitialized value in print at test.pl line 6.
Use of uninitialized value in print at test.pl line 7.
Use of uninitialized value in print at test.pl line 13.
8