my $x=bless {},"My::B";