Select Code to Download

$SIG{__WARN__} = sub {
  my $wn = shift;
  return if $wn =~ /Use of uninitialized value/i;    #Most annoying
  warn $wn;
};

BEGIN {
$SIG{__WARN__} = sub {
  my $wn = shift;
...
  warn $wn;
};
}