use strict;
use WWW::Mechanize;

my $url = "http://www.truro-penwith.ac.uk/";

my $mech = WWW::Mechanize->new();
print "\nURL: $url ...\n";

eval{
$mech->agent_alias('Windows Mozilla');   
#$mech->add_header('User-Agent'=>'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:25.0) Gecko/20100101 Firefox/25.0');
#$mech->add_header('Accept'=>'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8');
#$mech->add_header('Accept-Language'=>'en-US,en;q=0.5');
#$mech->add_header('Accept-Encoding'=>'gzip, deflate');
#$mech->add_header('Cookie'=>'bb2_screener_=1385998863+111.92.64.106; PHPSESSID=078fc31740655a3a3f5fb280dbdf335d');
$mech->add_header('Connection'=>'keep-alive');
 
    $mech->get($url);
    };

    #$mech = $mech->content();
    $mech = $mech->response->content();
    print $mech;
    exit;