use strict;
use warnings;
use feature 'say';
use Mojo::UserAgent;

my $ua = Mojo::UserAgent->new;
say $ua->get('https://www.perlmonks.org')->res->dom->all_text;

##</code><code>##

use strict;
use warnings;
use feature 'say';
use WWW::Mechanize;

my $ua = WWW::Mechanize->new;
$ua->get('https://perlmonks.org');
say $ua->content(format => 'text');