{
    package LenTestC;
    use Encode;
    sub new {
        my $class = shift;
        my $self = '';
        return bless \$self, $class;
    }
    sub add {
        my ($self, $data) = @_;
        $$self .=  Encode::encode_utf8($data);
    }
    sub len {
        my $self = shift;
        return length $$self;
    }
}