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