Select Code to Download

use warnings; use strict;
my $u = "http://perlmonks.com/?node_id=662172;displaytype=displaycode"
+;
use LWP; print LWP::UserAgent->new->get($u)->content;