sub setDestFile {
  my($self, $file) = @_;
  local(*F);
  open( F, ">$file") or die "Cannot open $file for writing: $!";
  $fh = \*F;
  $self->{'destfile'} = $fh;
}