You can use the following approach

sub setDestFile {
  my($self, $file) = @_;
  open(my $fh, ">$file");
  $self->{'destfile'} = $fh;
}
[download]

--perlplexer