I tweaked it a bit, setting $depth to -1

Wouldn't your subroutine always return -1? Shouldn't your GetCallStackDepth look more like:

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