leak-some-curlmory.p6

sub foo($build) {
    my $link = “https://whateverable.6lang.org/$build”;
    my $p = run :err(Nil), :out, <curl --dump-header - --output>, “$build.zst”, ‘--’, $link;
    my $filename = ($$p.out.slurp ~~ /‘Content-Disposition: attachment; filename="’
                    (<.xdigit>+[‘.zst’|‘.lrz’])‘"’/)[0];
    say $filename;
    rename “$build.zst”, $filename; # hack, but good enough for a proof of concept
}

use Telemetry;
say T<max-rss>.fmt(‘%.2f’) ÷ 1024 ~ ‘MiB maxrss – before doing anything!!’;
for <2016.09 2016.10 2016.11 2016.12 2017.01 2017.02 2017.03> {
    foo $_;
    say T<max-rss>.fmt(‘%.2f’) ÷ 1024 ~ ‘MiB maxrss ’;
}

output

94.746094MiB maxrss – before doing anything!!
｢4b32fcab2192054b82312cde4c235adda0b8ac4d.zst｣
102.984375MiB maxrss 
｢eb3123e5e60fa1635ed1ee121cec1290c290044a.zst｣
110.632813MiB maxrss 
｢f66f8be09c6023b3b53e32f7571ea536ad87b87f.zst｣
115.234375MiB maxrss 
｢b2a3441749878e338b0861b14b3b9433cc902f42.zst｣
117.605469MiB maxrss 
｢78980ed447cceff82f5efef16dbe9ee437aae809.zst｣
117.839844MiB maxrss 
｢aa94ffc33712c6f3068c6472b79a74fa70aa7b2e.zst｣
117.902344MiB maxrss 
｢a0a28432f54d608130f17247f9202f4c4939dfff.zst｣
117.980469MiB maxrss