sub kleur { my ($self, $kleur) = @_; $self->{kleur} = $kleur if defined $kleur; return $self->{kleur}; } $obj->kleur("Blauw"); print "De kleur is ", $obj->kleur(), ".\n"; # De kleur is blauw.