my $obj  = {@_};

    $obj = bless {%$obj},$pkg || die 'unable to bless object!';