my $unblessed = {};
my $blessed = $unblessed;
bless $blessed, 'Holy::Holy';
printf "%s\n%s\n", ref $unblessed, ref $blessed;
__END__
Holy::Holy
Holy::Holy