# Standard ORB

print "First Name: " . $agent->name_part_1 . "\n";
print "Last Name: " . $agent->name_part_2 . "\n";
print "Middle Name: " . $agent->name_part_3 . "\n";

sub get_first_name { my $self = shift; return $self->name_part_1;}
sub get_last_name { my $self = shift; return $self->name_part_2;}
sub get_middle_name { my $self = shift; return $self->name_part_3;}


# Using the Alias Layer

print "First Name: " . $agent->get_first_name . "\n";
print "Last Name: " . $agent->get_last_name . "\n";
print "Middle Name: " . $agent->get_middle_name . "\n";