use Devel::Peek;
Dump $INC{'./AlmostEmpty.pm'};