............
    $ua=new LWP::UserAgent;
      $ua->timeout ([180]);
      $request = new HTTP::Request('GET', $url);
      $response=$ua->request($request);
      if (!($response->is_success)) {
          print " Error can not load! \n  ";
      }

.........

NEXTLINE1:     while ($CONTENDS=~ /\d{10}/g) {
        $match=$&;
        $CONTENDS=$';        
        $count=0;
        while ($count<=@IDnumber) {
	    if ($match == $IDnumber[$count]){
		goto NEXTLINE1;
	      }
	$count++;
              }	
        push  (@IDnumber1, $match);           
            }
............
   for ($Inde=0;$Inde<=@IDnumber1;$Inde++){
   my $match=$IDnumber1[$Inde];
  $sqlinsert="INSERT INTO $tab[$loop] VALUES('$match')";
                 $rc=$db->Sql($sqlinsert);
                die qq(SQL fail "$rc":), $db->Error(),qq(n) if $rc;  
   }