Select Code to Download

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

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

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