perl -e 'print map qq($_\n), @INC'