#define fprintf(fh,...) PerlIO_printf(fh,__VA_ARGS__);
#define stdout PerlIO_stdout()
#define stderr PerlIO_stderr()