use A;
print $INC{"A.pm"};