eval {
      my $url="zzz";
      $response = $ua->get($url);
      if ($response->is_success) {  
    $content=$response->content;
      } else {
    next;
      }      
      $te= HTML::TableExtract->new(keep_html=>0);
      $te->parse($content);
      if ($te->table(3,3)->cell(1,0) eq "xxxx") {
    $a=$te->table(3,3)->cell(1,1);
    $b=$te->table(3,3)->cell(4,1);
      } else {
    $a=$te->table(3,4)->cell(1,1);
    $b=$te->table(3,4)->cell(4,1);
      }

    };
    warn  $@ if $@;
}
[download]