perl -l -MSOAP::Lite -e 'foreach (keys %INC) {s#/#::#g; chop;chop;chop; print}'