my $depth = 0;
$depth++ while caller($depth);