$ perl -wle 'sub foo { my @l = caller(); return scalar @l }; print foo()'
3
$ perl -wle 'sub foo { my @l = caller(0); return scalar @l }; print foo()'
10