That's fine. The class name will become "C::C1".
My previously posted "lib/C1.pm" should be moved to "lib/C/C1.pm",
and the first line should be changed to:
package C::C1;
In my "./acd.pl", you should change
use C1;
my $c1 = C1::->new();
to
use C::C1;
my $c1 = C::C1::->new();
After making those changes, note the difference in the last line:
$ ./acd.pl
A=HASH(0x9897d0)
A-bar
D=HASH(0x989890)
D-bar
whos_who() is in package: C
$self is in package: C::C1
The hexadecimal values in "X=HASH(0xhhhhhh)" will likely be different:
that's not significant; you could get different values on separate runs using the same code.