Another alternative is to "catch" the warning:

  local $SIG{__WARN__} = sub {
    warn @_ unless $_[0] =~ /uninitialised/;
  };
[download]

--Dave