print $mech->text

##</code><code>##

print $element->{textContent}

##</code><code>##

#!perl -w
use strict;
use WWW::Mechanize::Firefox::DSL;

get 'http://perlmonks.org';
print text