use strict;
   use Text::Autoformat;

   open(PGW, "<3ward10.txt") or die $!;

   while (<PGW>) {
           my $formatted = autoformat $_, {justify =>'left',
                                           left    =>2,
                                           right   =>60,
                                           all     =>1,
                                          };
           print $formatted;
   }