$SIG{__WARN__} = sub { print "warn called: @_\n" };