unless (open ($fh_more_pipe, "|-", "cat - | more"))

        {
            print "\nCould not open \$fh_more_pipe: $!\n\n";
            die;
        }

    select $fh_more_pipe;
    $|++;
    $~ = "one_field_format";

    my $one_field_text =

            "The purpose of the "
        .   colored ($StdHdr::ThisScriptName, "green")
        .   " script is to search for a specified character string "
        .   "in all plain text files that reside in and below a "
        .   "specified starting directory, optionally writing "
        .   "the names of matching files to a specified save file."
        .   "n\n";

    write;