note Sisyphus <br />++nice. However, after adding the -w switch I got lots of uninitialized value warnings. They can be avoided by including an early check in the <tt class="code">getarticles</tt> subroutine:<br /> <pre><tt class="code"> sub getarticles { my $IndentString = shift; my $article = shift; return unless $Children{$article}; ... } </tt> <br />Granted, not a big deal, but I like it better now, <em>with strictures on.</em><br /> <br /> -- Ricardo<br /> <em>use MacPerl;</em><br /> 62108 62124