package c; use base qw(b); sub a_context_sensitive { 'not redefined' } sub b_function { 'not redefined'} 1;