use strict;
use Test;

my $test = Test->new;

print first_name('Joe');
print last_name('Blow');
print $test->full_name;

sub first_name {
    my $first = shift;
    # Do things with first name
    $test->first_name(first => $first);
}
sub last_name {
    my $last = shift;
    # Do things with last name
    $test->last_name(last => $last);
}