sub do_something {
    local $SIG{__WARN__} = sub { ... };
    # your stuff goes here
    ...
}   # previous version restored