# constructor
sub new
{
my $this = {};

# object properties
$this->{colour} = 'yellow';

sub getColour {
{
my $this = shift;
return $this->{colour};
}

sub setColour{
my $this = shift;
$this->{colour} = shift;
return $this->{colour};
}


##</code><code>##

$this->{colour} = ('yellow', 'red', 'purple');

##</code><code>##

print $this->{colour};