Inheritance: A Derived Class

package Pope;

use base 'Person';

sub pope_name {
  return shift->{pope_name};
}

1;