#Accessor
sub Name {
  my $self = shift;  

  if (@_) { # returns true if the arg list contains any more elements, regardless of their values.
    $self->{NAME}= shift;
  }

  return $self->{NAME};
}