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

##</code><code>##

$test->first_name("bill");