# 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};
}