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