Select Code to Download

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

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