#! /usr/local/bin/perl 

require (Person);
require (Grouch);

#create a new person
$me = Person->new();
$you = Grouch->new();

#give the person a name
$me->name("Joe");
$you->name("Gerhard");

$me->friends("Fred", "Wilma", "Betty");
$you->friends("Ralph", "Alice", "Norton");

print "Friends of ", $me->name(), ": ", join (', ', @{$me->friends()}), "\n";
print "Friends of ", $you->name(), ": ", join (', ', @{$you->friends()}), "\n";