$ echo 'package A; package B; 1' > A.pm; perl -MA -le 'print for keys %INC'
A.pm