sub new 
{
	my $class = shift;
   	my $self  = {};
        ....
 	$self->{total}		= 0;
 	
        bless ($self, $class);
        return $self;
}

...

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

sub test
{
     my $self = shift;
     $self->count(1);
      print $self->count."\n";
}