Select Code to Download

package FOO;
use warnings;
...
    return $baz;
}
1;

use warnings;
use strict;
...
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);

bash-5.1$ perl  pm11149136.pl 
$bar (an imported 'package' variable)=42
...
$baz (direct attempt to access package 'my` variable)=
BAZ via getter/setter=66
BAZ get after setting to 55=55