http://www.perlmonks.org?node_id=640328


in reply to Forcing stack trace?

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