BEGIN { *CORE::GLOBAL::waitpid = sub($$) { CORE::waitpid( $_[0], $_[1] ) }; }