use warnings;
use strict;

use MyChest 'Swiss Army knife';
use MyBox   '6-bladed screwdriver';
use MyBag;  # no string specified

print 'all variables printed from ', __PACKAGE__, ": \n";
print "    var in MyChest: '$MyChest::var' \n";
print "    var in MyBox: '$MyBox::var' \n";
print "    var in MyBag: '$MyBag::var' \n";