BEGIN{*CORE::GLOBAL::shmget=sub{die}}