SV* code = newSVpv("require Module; import Module; 1", 0);
SV* rv;

eval_sv(copde, G_SCALAR);

SvREFCNT_dec(code);

SPAGAIN;
rv = POPs;
PUTBACK;

if (!SvTRUE(rv)) {
   ... handle exception ...
}