$fsuccess = ($response = $ua->get($url))->is_success;
  die "Could not fetch URI '" . $url . "'\n" unless $fsuccess;
  $decoded = $response->decoded_content;
  die "Could not decode content" unless $decoded;
  $utf8 = Encode::encode_utf8($decoded);

  $tree = HTML::TreeBuilder->new();
  $tree->utf8_mode(1);
  die "Parse error" unless $tree->parse($utf8);
  $tree->eof();