Select Code to Download

log {
  my @args = @_;
...
  close $fh;
  return;
}

{
  my $buffer = "";
...
_print($cgi->header( -type => .... ));
......
_flus();