Stuff

while (@channame = $query_handle->fetchrow())
        {
         foreach $id (@channame) {
                                  open(FILE, "lookup.txt") or die("Unable to open file");
                                  @data = <FILE>;
                                  close(FILE);
                                  if (grep {/$id/} @data)
                                               {
                                                @results=grep {/$id/} @data;
                                                @values = split('\|', $results[0]);
                                                $iconloc=$values[1];
                                                $iconloc =~ s/\s+$//;
                                                if ($iconloc ne "none")
                                                {
                                                  @name = split('/', $iconloc);
                                                  $num=@name;
                                                  $filename=$name[$num-1];
                                                  $command = "wget -q $iconloc -O $location/$filename";
                                                  print "grabbing $iconloc ..";
                                                  #system ($command);
                                                  print ".. done \n";
                                                  $query2 = "update channel set icon = '$location/$filename' where name='$id';";
                                                  print "$query2 \n";
                                                  $query_handle2 = $connect->prepare($query2);
                                                  $query_handle2->execute()  || die "Unable to update channel table";

                                                 }
                                                }
                                   }
       }