Select Code to Download

open(my $Raw_fh, ">", "Output_Raw.txt") or file_open_error_abort("Outp
+ut_Raw.txt");

...
    my $pause = <STDIN>;
    exit;
}

use utf8; use 5.022; use strict;

...
    use ExtUtils::MakeMaker qw(prompt); # placing this use statement h
+ere for convenient copy-paste of this END block code to other scripts
+.
    prompt('Please hit enter to exit.') if ($?); # stop and prompt for
+ acknowledgement if program exits with a non-zero value.
}