Select Code to Download

# MyTools.pm

...
    }

1;

# MyChest.pm

...
use parent qw(MyTools);

1;

# MyBag.pm

...
use parent qw(MyTools);

1;

# MyBox.pm

...
use parent qw(MyTools);

1;

use warnings;
use strict;
...
print "    var in MyChest: '$MyChest::var' \n";
print "    var in MyBox: '$MyBox::var' \n";
print "    var in MyBag: '$MyBag::var' \n";

c:\@Work\Perl\monks\TerryBerry>perl set_in_importing_script_2.pl
all variables printed from main:
    var in MyChest: 'Swiss Army knife'
    var in MyBox: '6-bladed screwdriver'
    var in MyBag: '[default]'