Select Code to Download

sub setDestFile {
  my($self, $file) = @_;
...
  $fh = \*F;
  $self->{'destfile'} = $fh;
}

sub output {
  my($self, $text) = @_;

  print $self->{'destfile'} "$text";
}

sub output {
  my($self, $text) = @_;
...

  print $fh "$text";
}