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

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

##</code><code>##

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 ...
}