perldoc -t perllocal | perl -lane'/"Module"/ && print $F[-1]' | sort -u >/tmp/pms

##</code><code>##

perlbrew switch perl-5.42.0

##</code><code>##

cpanm -v </tmp/pms &>>/tmp/inst.log & tail -f /tmp/inst.log

##</code><code>##

cat /tmp/pms | while read module ; do cpanm -v $module ; done

##</code><code>##

perl -MLWP::Simple -e'print$_[rand(split(q.%%\n.,
get(q=http://cpan.org/misc/japh=)))]'