use Bar;
warn $INC{'Bar.pm'};