package Slave;
use strict; use warnings;
use Master;
sub do_something { my $pkg=caller(); print "$pkg\n"; }