sub GetCallStackDepth {
  my $depth = 1; # 0 is this sub, why bother checking it?
  $depth++ while caller($depth);
  return $depth - 1;
}