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