sub get
{

  my $self = shift;
  my $propName = shift;

print "?$propName?\n";

#1  my @keys = @_ ? @_ : sort keys %$self;
#2  my @keys = ($propName); 

print ">>@keys\n";

        foreach my $key (@keys) {
            print "\t$key => $self->{$key}\n";
        }

#  return $self->{'$propName'};
}