$ perl -I . -e'use A;'
0

$ perl A.pm
1