package FamilyMember; # the parent class of Son, Daughter
sub new {
	my ($class, $args) = @_;
	my $self = bless({}, $class);
	if ($class eq 'Son') {
		$self->askSantaFor('A Truck!');
	} elsif ($class eq Daughter') {
		$self->askSantaFor("Subscription to Martha Stewart's 'Living'");
	}
return $self;
}

sub askSantaFor {
	my ($self, $wish);
	push @{$self->{things_to_ask_for}}, $wish;
}