Select Code to Download

#!/usr/bin/perl
use warnings;
...
$mu->record('after no do');

$mu->dump;

  time    vsz (  diff)    rss (  diff) shared (  diff)   code (  diff)
+   data (  diff)
     0  17504 ( 17504)   3916 (  3916)   3328 (  3328)   1644 (  1644)
+   1060 (  1060) start
     0  1970632 ( 1953128)  1957112 ( 1953196)   3520 (   192)   1644 
+(     0)  1954188 ( 1953128) after do
     1  1970632 (     0)  1957248 (   136)   3520 (     0)   1644 (   
+  0)  1954188 (     0) after no do

 8504 choroba   20   0 1970632   7992   3520 R 0.000 0.099   0:00.00 1
+.pl
 8504 choroba   20   0 1970632  26656   3520 R 0.000 0.329   0:00.00 1
+.pl
...
 8504 choroba   20   0 1970632 1.838g   3520 R 100.0 23.78   0:00.98 1
+.pl
 8504 choroba   20   0 1970632 1.857g   3520 R 0.000 24.04   0:00.98 1
+.pl
 8504 choroba   20   0 1970632   4244   3520 R 100.0 0.052   0:00.99 1
+.pl

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,