perl -le 'sub INC { print for @_ } INC(@INC)'