package base;

my %cfg=(
         on_error => "exit",
         output_type => "text",
        );

sub new {
  ..blah blah..
  do_something if ($cfg{on_error} eq 'exit');
}

package child;
use parent "base";

my %cfg=(
         on_error => "warn",
        );

sub new {...}