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