Select Code to Download

use strict;
use warnings;
...

my $req = HTTP::Request->new(GET => 'http://www.perlmonks.org');
print $ua->request($req)->as_string;