sub my_open {
  my ($file,$mode,$error_text)=@_;
  $mode||='<';
  $error_text||="While opening in '$mode':$!:$file";
  open my $fh, $mode, $file 
     or Carp::confess $error_text;
  return $fh
}