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