/* assume "buffer" is a C struct */
    /* assume "package" is a perl string naming the package
       to bless the object in */
    SV* self = newSViv(PTR2IV(buffer));
    SV* ref = sv_bless(newRV_noinc(self),gv_stashsv(package,1));

    /* ref is now a perl object containing a pointer to the "buffer" struct */


##</code><code>##

    if (sv_derived_from(sv, "Expected::Package"))
       buffer_pointer = (buffer_type*) SvIV((SV*)SvRV(perlobject));