my $foaf = XML::FOAF->new(URI->new('http://glenn.typepad.com/foaf.rdf'));
my $person = $foaf->person;
my @people = $person->knows;

##</code><code>##

foreach (@people[0)
{
    print $_;
}

##</code><code>##

    my @pp = $_;
    print $pp[0][0]->name;