perl -e 'print $_,$/ for (@INC);'