view release on metacpan or  search on metacpan

doc/freq.pl  view on Meta::CPAN

use strict;
use warnings;
use feature 'say';

#
# Usage :
#  $ curl -s http:// .... .html | html2text > file.txt
#  $ ./freq.pl file.txt > words.txt
#

binmode(STDOUT, ":utf8");

sub usage {
   say './freq.pl file';
   exit;
}

sub load_stopwords {
    my $fh;
    open $fh, '<:utf8', './stop-words-fr.txt';
    my @L = <$fh>;