$a = {};
$b = $a;
bless $a, BLAH;
print "\$b is a ", ref($b), "\n";