Select Code to Download

perl -le'
chomp(@_=`perldoc -T perllocal`);
...
%_=map{s/^\S+\///;$_=>1}@z;
print$_ for sort{lc($a)cmp lc($b)}keys%_'

perl -le'
chomp(@_=`perldoc -T perllocal`);
...
 }
print"$_\n $_{$_}\n"
}'