Select Code to Download

# set up an array at the top of your program
my @output;
...
sub cprint {
    $capture ? (print @_) : push(@output,@_);
}