Select Code to Download

my $fh = undef;
print "1.fh is now $fh\n";
...
  $$fhref = *STDOUT unless $$fhref;
  print {$$fhref} $lines;
}

my $fh = undef;
printout('some lines1', $fh);
...
  my $fh = $_fh ? $_fh : *STDOUT;
  print $fh $lines;
}