my $level = 0;
while (my @frame = caller($level++)) {
    # do stuff with the current frame
}

##</code><code>##

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