# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1364115976 -7200
# Node ID 01eecd0d108e951be2883645ec0389506d50dd3a
# Parent  1e6a475dcf966af48bb1304829e5d607061b5da2# Parent  c8f7a7a5c5f87b3cd5608fc6783a2965e51971cc
merged

diff -r 1e6a475dcf96 -r 01eecd0d108e perl.rst
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/perl.rst	Sun Mar 24 11:06:16 2013 +0200
@@ -0,0 +1,21 @@
+.. -*- coding: utf-8; -*-
+.. include:: HEADER.rst
+
+=======
+ Perl.
+=======
+.. contents::
+
+Print stack trace in Perl.
+==========================
+::
+
+  use Devel::StackTrace;
+  my $trace = Devel::StackTrace->new;
+  print $trace->as_string; # like carp
+
+Print execution trace in Perl.
+==============================
+
+``Devel::Trace`` print out each line before it is executed (like ``sh -x``).
+