Maybe try something like:

local $SIG{__WARN__} = sub {
    unless ($_[0] =~ /\(err=0, errstr=undef, state=undef\)/) {
        warn $_[0];
    }
 };
[download]

A tad icky I know...