sub new
{
    my ( $class, $args ) = @_; 

    my $self = { 
        width   => $args->{width}   // DEFAULT_WIDTH,
    };  
    bless $self, $class;
}