Just swtich off warnings for that section with no warnings; or trap the warning call with $SIG{__WARN__} or redirect STDERR to /dev/null with open STDERR, ">/dev/null";

I recommend the third. You can redirect to anywhere (say a "log" file) for systems with no /dev/null

____________________
Jeremy
I didn't believe in evil until I dated it.