sub get_name {
  my $self = shift;
  if (defined ($name)) {
    return $name;
  } else {
    return "error";
  }
}

sub put_name {
  my $self = shift;
  $name = "$_[0]";

}