--- a/oracle.rst	Tue Apr 02 00:37:12 2013 +0300
+++ b/oracle.rst	Sun Apr 21 16:32:32 2013 +0300
@@ -60,3 +60,60 @@
 
   select distinct tablespace_name from user_tables;
 
+Profiling.
+==========
+
+Timing info about last queries::
+
+  select LAST_LOAD_TIME, ELAPSED_TIME, MODULE, SQL_TEXT elasped from v$sql
+    order by LAST_LOAD_TIME desc
+
+Improved version of above code::
+
+  column LAST_LOAD_TIME format a20;
+  column TIME format a20;
+  column MODULE format a10;
+  column SQL_TEXT format a60;
+
+  set autotrace off;
+  set timing off;
+
+  select * from (
+    select LAST_LOAD_TIME, to_char(ELAPSED_TIME/1000, '999,999,999.000') || ' ms' as TIME, MODULE, SQL_TEXT from SYS."V_\$SQL"
+      where SQL_TEXT like '%BATCH_BRANCHES%'
+      order by LAST_LOAD_TIME desc
+    ) where ROWNUM <= 5;
+
+In SQL/Plus::
+
+  SET TIMING ON;
+  -- do stuff
+  SET TIMING OFF;
+
+or::
+
+  set serveroutput on
+  variable n number
+  exec :n := dbms_utility.get_time;
+  select ......
+  exec dbms_output.put_line( (dbms_utility.get_time-:n)/100) || ' seconds....' );
+
+See:
+
+  http://docs.oracle.com/cd/B19306_01/server.102/b14237/dynviews_2113.htm
+                $SQL lists statistics on shared SQL area without the GROUP BY
+                clause.
+
+Last table modification time.
+=============================
+::
+
+  select max(scn_to_timestamp(ora_rowscn)) from TBL;
+
+  select timestamp from all_tab_modifications where table_owner = 'OWNER';
+  select timestamp from all_tab_modifications where table_name = 'TABLE';
+
+List of Oracle Reserved Words.
+==============================
+
+ * http://docs.oracle.com/cd/B19306_01/em.102/b40103/app_oracle_reserved_words.htm

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/perl.rst	Sun Apr 21 16:32:32 2013 +0300
@@ -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``).
+