main.pl
-------

use strict;
use warnings;

use Foo ();

print("\$Foo::bar = $Foo::bar\n");