If you use warnings; you can use no warnings qw(foobar); in a block to turn off the foobar type warning. So you could do:

no warnings qw(uninitialized);
[download]

Or you could check your code, i.e.:

# so it's not undefined:
$foo = 0 unless (defined $foo);
[download]

I put a big write up on my scratchpad for somebody about using use warnings for fine grained control. Check it out if you're interested.