Select Code to Download

sub my_open {
  my ($file,$mode,$error_text)=@_;
...
     or Carp::confess $error_text;
  return $fh
}