do {
    $mech->follow_link(tag=>'meta');
} until ThisIsThePageIWant( $mech );

print $mech->content(format => 'text');

##</code><code>##

$ perl -MWWW::Mechanize -le " print WWW::Mechanize-> new->get( shift )->request ->as_string" http://example.com
GET http://www.iana.org/domains/example/
Accept-Encoding: gzip
User-Agent: WWW-Mechanize/1.68

##</code><code>##

GET /tools/primer-blast/primertool.cgi?ctg_time=1310519679&job_key=JSID_01_116688_130.14.24.201_9000 HTTP/1.1