--- a/perl.rst	Wed Aug 08 07:32:33 2012 +0300
+++ b/perl.rst	Wed Aug 08 07:37:07 2012 +0300
@@ -13,3 +13,9 @@
   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``).
+