Although I'd recommend fixing the problem, not the symptom, I think you want something like this:

use warnings;
no warnings qw(uninitialized);
[download]

See the warnings pragma documentation for more information. This is described in the standard perl FAQ, under the heading of perllexwarn.