$ ./acd.pl
A=HASH(0x25db7c0)
A-bar
D=HASH(0x25db880)
D-bar
whos_who() is in package: C
$self is in package: C1