$SIG{'__WARN__'} = sub { warn "sigwarn: $_[0]"; }; warn "outside caller!";
# sigwarn: outside caller! at warn line 1.

# This is perl, v5.8.8 built for i686-linux