Using a Moose class

# construction
my $rect = Rectangle->new;