use warnings;
use strict;
use feature 'say';
use lib ".";
use FOO qw/$bar $baz Baz_Get_Set/;

say "\$bar (an imported 'package' variable)=",$bar;
say "\$bar (accessed explicitly via package name \$FOO::bar)=",$FOO::bar;
$bar="Set via caller";
say "\$bar (accessed explicitly via package name \$FOO::bar after setting via imported var)=",$FOO::bar;
say "\$baz (direct attempt to access package 'my` variable)=",$baz; # This returns UNDEF 
say "BAZ via getter/setter=",Baz_Get_Set(); # Nothing passed - this is a GET
say "BAZ get after setting to 55=", Baz_Get_Set(55);