use 5.014;
use warnings;
use Mojo::UserAgent;

my $text = Mojo::UserAgent
        ->new
        ->get('http://www.perlmonks.org/?node_id=934101')
        ->res
        ->dom
        ->at('tt')
        ->all_text;
chomp $text;
print $text;