XS(w32_GetACP)
{
    dXSARGS;
    if (items)
        Perl_croak(aTHX_ "usage: Win32::GetACP()");
    EXTEND(SP,1);
    XSRETURN_IV(GetACP());
}