Set a warning handler in %SIG:

$SIG{__WARN__} = sub
{
    my $warning = shift;
    warn $warning unless $warning =~ /Subroutine .* redefined at/;
};
[download]