BEGIN {
   *CORE::GLOBAL::flock = sub {
      return 1;
   }
}