sub stack_depth() {
  my $depth = 1;
  $depth++ while defined caller($depth);
  --$depth;
}