Help for this page
my $out_fh; if ($to_file) { ... ... print $out_fh "blah\n";
if ($to_file) { open(my $out_fh, '>', ...) ... ... print "blah\n";