sub count :lvalue{
     my $self=shift;
     if (@_) { $self->{count} += shift }
     $self->{count};
}