perl -Mvars -we "print join qq/\n/,map {qq/$_=>$INC{$_}/} sort keys %INC"