void (*perls_fre­e)( void*p ) = &free;
#undef free