sub area {
    my $self = shift;
    return $self->height * $self->width;
}