Select Code to Download

package Parent;

...
}

1;

package Child;

...
}

1;

use Parent;

...
print "Values 1 and two from the child via the parent are:\n1....",
      $parent->getChildValue1(),"\n2....",
      $parent->getChildValue2(),"\n";