#define write PerlLIO_write