package b;

BEGIN {
    use Data::Dumper;
    print STDERR 'b:',Dumper \%INC;
}
use c;
sub bar { 1; }
1;