Help for this page
sub cprint { $capture ? (print @_) : push(@output,@_); }
sub cprint { if($capture) { # if $capture is != 0, '' or undef ... push(@output,@_); # stuff goes into @output } }