Do not afraid to shoot your leg? You're brave man!

I did "glueing" that way: (nothing unusual, I just read perlembed and related documentation)

1. #include <EXTERN.h>, #include <perl.h> somewhere at the very top of C program. #include "xsub.h" somewhere near the end, and after that all "glue" functions are placed. All those header files are in perl/lib/CORE/* directory.
2. Write "glue" functions like following example:

   XS(TStringsTIEARRAY) {
       dXSARGS;
   
       SV *ssv=ST(0); // "G::TStrings"
       void* tmp[4];
       memset(tmp,0,sizeof(tmp));
       tmp[2] = 0;
       ((TStrings*)(tmp[0])) = TyingStrings;
       ((TComponent*)(tmp[1])) = TyingComp;
       ((int)(tmp[2])) = TyingOpt;
       SV *tsv;
       tsv = newSVpv((char*)&tmp[0],16);
   
       STRLEN len;
       char *ptr = SvPV(ssv,len);
       HV *stash = gv_stashpvn(ptr,len, TRUE);
       SV *rsv = newRV_inc(tsv);
       sv_bless(rsv,stash);
   
       ST(0) = rsv;
   
       XSRETURN(1);
   }
   [download]

   Note usage of XS macro, "real" name of function will be more complicated after expansion of that macro.
3. initialize your perl instance(s) as perlembed.pod says you to.
4. After initializing it/them, in order to make those functions visible to perl, do something like:

       newXS("G::TStrings::TIEARRAY", TStringsTIEARRAY, "BCB+Perl interna
   +l");
   [download]

5. you may want to also run following:

       newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, "blablabla")
   +;
   [download]

   to enable dynamic loading of modules.

And remember, I do not enCourage you to do that :)

Courage, the Cowardly Dog
things, I do for love to perl...