perl -MLWP -e 'print join("\n", keys %INC), "\n";'