result.txt

skarsnik@vps300582:~/perl6/benchmark$ ./rakudo-2017.05/install/bin/perl6 -I p6-linux-proc-statm/lib/ ../testshell.p6 shell
Before shell call : 65.996 kb
html is 258974 chars
After shell call : 66.860 kb
After sleep 5 : 66.860 kb
skarsnik@vps300582:~/perl6/benchmark$ ./rakudo-2017.07/install/bin/perl6 -I p6-linux-proc-statm/lib/ ../testshell.p6 shell
Before shell call : 78.812 kb
html is 258974 chars
After shell call : 106.104 kb
After sleep 5 : 107.192 kb

testshellmem.p6

use Linux::Proc::Statm;

sub mem($a) {
  say $a ~ get-statm<data>.flip.comb(/.**1..3/).join('.').flip ~ ' kb';
}

mem("Before shell call : ");

my $html;
if @*ARGS[0] eq "qqx" {
 $html = qqx{wget -o /dev/null -O - https://www.fimfiction.net/bookshelf/149291/};
}
if @*ARGS[0] eq "shell" {
  my $proc = shell "wget -o /dev/null -O - https://www.fimfiction.net/bookshelf/149291/", :out;
  $html = $proc.out.slurp;
}

if @*ARGS[0] eq "run" {
  my $proc = run "wget", "-o", "/dev/null", "-O", "-", "https://www.fimfiction.net/bookshelf/149291/", :out;
  $html = $proc.out.slurp;
}

say "html is " ~ $html.chars ~ " chars";
mem("After shell call : ");

sleep 5;
mem("After sleep 5 : ");