Select Code to Download

   The Project Gutenberg Etext of <etext title> 
   by <etext author>

...
   End of the Project Gutenberg Etext of <etext title>
   by <etext author>
   Copyright (c) <copyright holder>

   my $pg_author  = "<etext author>";
   my $pg_title   = "<etext title>";
   my @pg_header  = "<Project Gutenberg Header>";
   my @etext_body = "<actual body of etext>";
   my @pg_footer  = "<Project Gutenberg Footer>";

   use strict;
   use CGI qw(:standard);
   use Text::Autoformat;
...
                                      all     => 1};
   print pre("$formatted");
   my $data =~ m/End of Project Gutenberg Etext (.*)/s;