Select Code to Download

foreach (my $word = <$inwp>) {
    $countp{$word}++ ;
}

#!/usr/bin/perl
use strict;
...
};
close $fh_in;
close $fh_out;