sub new { # any constructor
    my ($proto) = shift;
    my $class = ref($proto) || $proto;
    my $parent = ref($proto) && $proto;
    my $self;
    $self = {};            # create a new object
    bless($self, $class);
} # new