Select Code to Download

  sub remove_trailing_newlines( $ ) {
      my ( $stringref ) = @_;

      ${$stringref} =~ s/[\r\n]+\z//gs;
  }

  remove_trailing_newlines( \$cmd );
  remove_trailing_newlines( \$check );