#!/usr/bin/perl
#
use strict;
use warnings;

use Person;

my $Person = Person->retrieve( 1 );

my $names = $Person->names();
while ( my $Name = $names->next() ) {
    print $Name->lastname()->name() . ', ' . $Name->firstname()->name() . "\n";
}