Generate aliases for a taxonomy (Drupal 6)

gistfile1.php

module_load_include('inc', 'path', 'path');
module_load_include('inc', 'pathauto', 'pathauto');

$terms = taxonomy_get_tree(1);
foreach($terms as $term) {
  $cleaned = pathauto_cleanstring($term->name);
  path_set_alias("taxonomy/term/{$term->tid}", "categorias/$cleaned");
}