sub remove_trailing_newline {
    $_[0] =~ s/[\r\n]+\Z//;
  }