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

...

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