$ perl -we '$SIG{__WARN__} = sub { warn "got [@_]\n" }; $x=$x+1'
got [Use of uninitialized value in addition (+) at -e line 1.
]
$