Select Code to Download

use Carp;
# time passes
...
  open($fh, $file) or confess("Cannot open '$file': $!");
  return $fh;
}

  my $handle = my_open("whatever");

  print $self->{handle} @stuff;

  print { $self->{handle} } @stuff;