use strict;
use warnings;
use WWW::Mechanize;
use WWW::Mechanize::TreeBuilder;

my $mech = WWW::Mechanize->new;
WWW::Mechanize::TreeBuilder->meta->apply($mech);

my $datestring = localtime();

print "Local date and time before get method $datestring\n";
$mech->get( "http://www.xxx.com/p/1234" );
$datestring = localtime();
print "Local date and time after get method $datestring\n";