$SIG{__WARN__} = sub { unless ($_[0] =~ /^Use of uninitialized value/) { warn $_[0]; } };