my $level = 0;
1 while caller(++$level);