sub first_name {
    my $self = shift;
    $self->{'first'} = shift;
    return "First Name: $self->{first}\n";
}