require 'perl'
perl.require 'Scalar::Util'

##</code><code>##

require 'perl'
perl.require 'Doesnt::Exist::Yet'

##</code><code>##

static int perl_interp_require(lua_State *L)
{
    size_t len;
    const char *modname;
    SV *modnameSv;

    modname = luaL_checklstring(L, 1, &len);
    modnameSv = newSVpvn(modname, len);

    /* Exits on failure */
    load_module(PERL_LOADMOD_NOIMPORT, modnameSv, NULL);

    check_perl_error(L, 1); // left out for brevity; checks $@

    return 0;
}