#!/usr/bin/perl -w

# # # # # # # # # # # # # # # # # # # # # # # # # # # # # #  
# final_3.pl
# 
# assignment: given a data structure, write subroutines to describe
#             that structure and to add to that structure
#           
#
# Author: John Berry
# Date: 12/11/03
#
# Version 0.01
#
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # #  

use strict;
use Person;

my $VERSION = "0.01";

my $dad = Person->new('Ed', 45);

$dad->add_brother('Larry');
$dad->add_brother('Tom');

$dad->summarize();

$dad->set_age(38);
$dad->add_sister('Melanie');

$dad->summarize();

$dad->set_name('Edward');
$dad->add_sister('Sue');
$dad->add_sister('Jinny');

$dad->summarize();
