Using a Moose class

# construction
my $rect = Rectangle->new;

# r/w accessors
$rect->height(5);
$rect->width(15);