package A::B; use A; use vars qw/@ISA/; @ISA = qw/A/; # stuff taken out sub _write_file { my($path, $val, $start) = @_; # ... }