package A;
use Data::Dumper;

package B;
use strict;
use base 'A';
print Dumper([1]);