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

##</code><code>##

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

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

##</code><code>##

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

  my $fh = $self->{'destfile'};

  print $fh "$text";
}