todd.p6

#!/usr/bin/env perl6
# https://docs.perl6.org/routine/run

my $proc;
my $RtnStr;
my $RtnErr;
my $RtnCode = "";

$proc    = run "curl", "-vvv", "-L", "http://www.gbis.com", "-o", "eraseme.html", :err, :out;

say "reading :err";
$RtnErr = $proc.err.slurp(:close);

say "reading :out";
$RtnStr = $proc.out.slurp(:close);

say "reading return code";
$RtnCode = $proc.status;

say "RtnCode <$RtnCode>\n\nRtnStr <", $RtnStr, ">\n\nRtnErr <", $RtnErr, ">";