my $agent = WWW::Mechanize->new( autocheck => 1); 
  
$agent->get($url);
    die $agent->response->status_line unless $agent->success;
    
$output = $agent->content;
print $output;