Select Code to Download

sub cprint {
    $capture ? (print @_) : push(@output,@_);
}

sub cprint {
    if($capture) {        # if $capture is != 0, '' or undef
...
        push(@output,@_); # stuff goes into @output
    }
}