my $g = Guard->new("Fred"); my $a1 = Alarm->new; $a1->add_observer($g); $a1->notify_observers("I like pie!");
continued...