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