package w;
# in ./A
use Data::Dumper;
use Exporter;
our $var_in_w;
our @EXPORT= ('$var_in_w', 'sub_in_w');
our @ISA = qw(Exporter);

sub sub_in_w{
    print("this is from a sub in package SRAM::w!\n");
}

BEGIN{
print('this is w\'s BEGIN, @ISA = ', Dumper @ISA, "\n");
1;
}
END{
    print("w ending now.\n");
}
1;