package Some::Class;

my $obj = {};
bless $obj;    # blesses into "Some::Class"