use WWW::Mechanize();

my $mech = WWW::Mechanize->new;
$mech->agent_alias( 'Linux Mozilla' );

my $url = "http://www.economist.com/news/world-week/21716670-politics-week/print";

$mech->get($url, ":content_file" => "output.html");