my $warnings = \&warnings::import;
    local *warnings::import = sub {
      &{$warnings};
      unimport warnings "redefine";
    };