Using a Moose class

# construction
my $rect = Rectangle->new;

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

# constructing w/ parameters
my $rect = Rectangle->new(
    x      => 10, 
    y      => 20,
    height => 5,
    width  => 15,
);