perl -I. -e 'print join("\n", @INC)'