sub open_file {
  my ($self, $filename) = @_;
  local *FH;

  open FH, $filename or die "opening $filename: $!";
  $self->{FH} = *FH;
}