(*Perl_IStdIO_ptr(((PerlInterpreter *)Perl_get_context())))
->pStderr((*Perl_IStdIO_ptr((( PerlInterpreter* ) Perl_get_context()))))

##</code><code>##

Perl_get_context(void) {
    DWORD err = GetLastError();
    void *result = TlsGetValue(PL_thr_key);
    SetLastError(err);
    return result;
}

##</code><code>##

FILE*
PerlStdIOStderr(struct IPerlStdIO* piPerl)
{
    return win32_stderr();
}

##</code><code>##

DllExport FILE *
win32_stderr(void)
{
    return (stderr);
}

##</code><code>##

win32_stderr(void){
    return ((&_iob[2]));
}