package FOO;
use warnings;
use strict;
use Exporter 'import';
our @EXPORT_OK = qw/$bar $baz Baz_Get_Set/;

our $bar = 42;  # Package global, visible as $FOO:bar
my  $baz = 66;  # Not visible outside FOO - needs accessor sub 

sub Baz_Get_Set{
    defined $_[0] and $baz=$_[0];
    return $baz;
}
1;