Before knowing Capture::Tiny, I did it with something like

...
my $mode   = '>';
if ($option eq 'append') { $mode = '>>'; };
close STDOUT;
open (STDOUT, $mode, $fname) or die "cannot open (STDOUT) $fname: $!";
...
[download]

updated module name … well, I do like cats :-)