paul@paul-laptop:~/yar/server/lib$ perl -e 'use CGI::Ex::Dump qw(debug ctrace); sub a { baz(2) } sub baz { chree(3,4) } sub chree { debug ctrace }; a()'
debug: -e line 1
  $VAR = [
            "chree at -e line 1 (3, 4)",
            "baz   at -e line 1 (2)",
            "a     at -e line 1"
          ];