# Open log file once
open(MYFILE, '>>', $qfn)
    or die("Cannot open file $qfn for appending: $!\n");

...

print_to($to_file ? *MYFILE : *STDOUT, $str);

##</code><code>##

open(my $MYFILE, '>>', $qfn)
    or die("Cannot open file $qfn for appending: $!\n");

...

print_to($to_file ? $MYFILE : *STDOUT, $str);

##</code><code>##

my $MYFILE;
if ($to_file) {
    open($MYFILE, '>>', $qfn)
        or die("Cannot open file $qfn for appending: $!\n");

    print_to($to_file ? $MYFILE : *STDOUT, $str);
} else {
    $MYFILE = *STDOUT;
}

print_to($MYFILE, $str);