Select Code to Download

package foo;
my $foo = 5;
...
  $foo = 6;
  $foo::bar = 8;
}

use foo;

...

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

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