in reply to Forcing stack trace?

print Devel::StackTrace->new()->as_string();

In Section Seekers of Perl Wisdom