my $xml = new XML::Simple (KeyAttr=>[]);
  my $TopList = $xml->XMLin($result); 

  $SQL = "INSERT INTO categories (category, url) VALUES(?, ?)";
  $SQLX = $dbh->prepare($SQL);

  if ($TopList->{taxonomy})
  {
    foreach my $cat (@{$TopList->{taxonomy}->{category}})
    {
     $SQLX->execute($cat->{label}, $db_url);
    }
  $SQLX->finish();
  }