#!/usr/local/bin/perl510
use warnings;
use strict;

use WWW::Mechanize;

my $mech = WWW::Mechanize->new( ); 
$mech->agent_alias( 'Windows IE 6' );

my $url = 'http://www.somewhere.tld/';

$mech->get( $url );
$mech->success() or 
                    die "Get $url failed. " ,
                    $mech->response->status_line();

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

my $len = length $content;

print "Number of Chars: $len\n";