Select Code to Download

$ 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 fo
+o()'
10