1 .. -*- coding: utf-8; -*-

     2 .. include:: HEADER.rst

     3 

     4 =======

     5  Perl.

     6 =======

     7 .. contents::

     8 

     9 Print stack trace in Perl.

    10 ==========================

    11 ::

    12 

    13   use Devel::StackTrace;

    14   my $trace = Devel::StackTrace->new;

    15   print $trace->as_string; # like carp