use strict;
   use CGI qw(:standard);
   use Text::Autoformat;

   my $file      = "pg_exext.txt";
   open(PGW, "<$file") or die $!;
   local $/      = undef; 
   my $data      = <PGW>;

   my $formatted = autoformat $data, {justify =>'full', 
                                      left    => 4, 
                                      right   => 55, 
                                      all     => 1};
   print pre("$formatted");
   my $data =~ m/End of Project Gutenberg Etext (.*)/s;