- or download this
Foo.pm
------
...
init();
1;
- or download this
main.pl
-------
...
use Foo ();
print("\$Foo::bar = $Foo::bar\n");
- or download this
output
------
Setting $Foo::bar to 42.
Use of uninitialized value in concatenation (.) or string at main.pl l
+ine 7.
$Foo::bar =