my $mech = WWW::Mechanize->new();
  $mech->get('http://example.com');
  print $mech->content(format => 'text');