sub first_name {
  my( $self, $args ) = ( shift, {@_} );
  $self->{ first } = $args->{first};
  return "First Name: $args->{first}\n";
}