I've got my sources!
I'm committed!
##</code><code>##

use Data::Dumper;
local $SIG{__WARN__} = sub { print STDERR @_, Dumper $arg };