BOOL	do_utf8 = isDIR_PARAM_UTF8 && IsWin2000();
...
    if ( do_utf8) {
    	WCHAR buf[MAX_PATH+1];
        l = MultiByteToWideChar(CP_UTF8, 0, path, -1, buf, MAX_PATH+1);
    	path = (char*) PerlDir_mapW(buf);
    } else {
    	path = PerlDir_mapA(path);
    	l = strlen(path);
    }
...
    res = do_utf8 ?
       wstat(( WCHAR*) path, sbuf) :
       stat(path, sbuf);