package Base;

use One;
use Two;
use Three;

sub do {
  print "hi from Base\n";
  Three::do;
  Two::do;
  One::do;
}