sub mysub {
  my($t, $tag)= @_;
  foreach my $child ($tag->children) {
#   foreach my $grandchild ($tag->children) {
#   correction thanks to pg
    foreach my $grandchild ($child->children) {
      $grandchild->purge;
    }
  }
}