%SIG

{
  local $SIG{__WARN__} = sub { hoge...};
}

警告シグナルに対するハンドラを自前で用意する使い方。

{
  local $SIG{__WARN__} = sub{};
}

こんな使い方もあるみたい。警告を発しないようにする。