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

##</code><code>##

my $old_warn = $SIG{__WARN__};
$SIG{__WARN__} = sub {
    # your stuff
    $old_warn->(@_);
}