package A;
use Data::Dumper;
print Dumper \%INC, \@INC;

package B;
use strict;

use ibase 'A';
print Data::Dumper::Dumper(\%A::INC, \%INC);
print Dumper([1]);