Help for this page
dirinfo = newRV_noinc((SV *)newdirinfo);
sv_setsv(dirinfo, sv_2mortal(newRV_noinc((SV *)newdirinfo)));
hv_store(newdirinfo, "Errors", 6, newRV((SV *)errs), 0);