package My; use strict; sub hoge { print 'My'. "\n"; } package My::A; use strict; use base 'My'; sub hoge { print 'My A'. "\n"; } package My::B; use strict; use base 'My'; sub hoge { print 'My B'. "\n"; } package My::Common; use strict; us…