Select Code to Download

open (my $inwp , "<:encoding(utf8)" , "$pwt") or die "$pwt: $!" ;
while (<$inw>) {
...

  @pwords = split (/\n/ , $inwp) ;

open (my $nwt , "<:encoding(utf8)" , "$ntw" ) or die "$ntw: $!" ;
...

@nwords = split (/\n/ , $nwt) ;