sub func {
   ...
   if (...) {
      ...
      return ...;
   } elsif (...) {
      ...
      return ...;
   } elsif (...) {
      ...
      return func(...);
   } elsif (...) {
      ...
      return func(...);
   }
}

##</code><code>##

sub func {
   ...
   return func(...);
}

##</code><code>##

use constant SQRT_EPSILON  => 0.0001;
use constant SQRT_MAX_ITER => 50;

sub sqrt ($) {
   my $x = shift;

   return undef if $x < 0;  

   my $base  = 0;
   my $top   = $x;
   my $guess = middle($base, $top);

   my $counter = SQRT_MAX_ITER;

   while (abs($x - square $guess) >= SQRT_EPSILON) {
      # Avoid looping for too long.
      return undef unless $counter--;

      if ( square $guess < $x ) {
         $base  = $guess;
         $guess = middle( $guess, $top );
      }
      elsif ( square $guess > $x ) {
         $top   = $guess;
         $guess = middle( $base, $guess );
      }
   }

   return $guess;
}

##</code><code>##

sub in_order_visit {
   my ($node, $visitor) = @_;
   return unless defined $node;
   in_order_visit($node->left(), $visitor);
   $visitor->($node);
   in_order_visit($node->right(), $visitor);
}

##</code><code>##

sub in_order_visit {
   my ($node, $visitor) = @_;
   my @to_process;
   for (;;) {
      if (defined $node) {
         push(@to_process, $node);
         $node = $node->left();
      } else {
         return if not @to_process;
         $node = pop(@to_process);
         $visitor->($node);
         $node = $node->right();
      }
   }
}