{   my $size = 0;
    my $org_dump = \&Data::Dumper::_dump;
    sub Data::Dumper::_dump
    {
        $size >= 4000 and return "";
        my $s = $org_dump->(@_);
        $size += length $s;
        return $s;
        }
    }