Select Code to Download

    my $format_definition_expression =
        "format one_field_format =\n"
...
         .   ".\n";

   eval $format_definition_expression;

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

...
    write;