use Carp qw(cluck);
sub foo { cluck(1) };
sub bar { goto \&foo; carp "here" };
sub baz { bar() };
baz();

# bar() is not shown in the stack trace,
# but "here" never gets carped!