local $SIG{"__WARN__"} = sub { push @warns, @_ };