well, you can filter off these warnings. put these lines at the top of your script:

BEGIN {
    $SIG{__WARN__} = sub { 
        print STDERR $_[0] 
        unless $_[0] =~ /Subroutine .* redefined/
    }
}
[download]

cheers,
Aldo

King of Laziness, Wizard of Impatience, Lord of Hubris