perl -MLWP::Simple -e "getprint 'http://perlmonks.org/?node_id=170442;displaytype=displaycode'"