package c;
BEGIN {
    use Data::Dumper;
    print STDERR 'c:',Dumper \%INC;
}
use a;
1;