perl -e 'print join(",",@INC)'