# MyBox.pm package MyBox; use warnings; use strict; use parent qw(MyTools); 1;