Select Code to Download

#! perl -slw
use strict;
...
}
printf "end   : %6d\n", my $end = mem;
printf "Growth:  %6d\n", $end - $start;

c:\test\fork>..\534254 -N=10 -D=1
start : 3141632
...
 10   : 48738304
end   : 44195840
Growth:  376832