*CORE::GLOBAL::pack = sub ($@) { 
    use warnings FATAL => "pack";
    return CORE::pack(shift(), @_);
};