$SIG{__WARN__} = sub {
  my $wn = shift;
  return if $wn =~ /Use of uninitialized value/i;    #Most annoying
  return if $wn =~ /name "(?:.+?)" used only once/i; #Very annoying
  warn $wn;
};