sub myNameIs{
    my ($this,$name) = @_;
    die("Don't tell me that I don't have a name.") unless(defined($name));
    
    $this->{_name} = $name;
  }
  
  sub whoAmI{
    my ($this ) = @_;
    return($this->{_name});
  }