Lingua::JA::Summarize sample

#!/usr/bin/env perl
use strict;
use warnings;
use Lingua::JA::Summarize;
use Perl6::Say;
use Encode;

my $in = do { local $/; <>; };
my $s = Lingua::JA::Summarize->new({
    charset => 'utf8',
    mecab_charset => 'utf8',
    default_cost => 1.8,
    singlechar_factor => 0.2,
});
$s->analyze($in);
my @keywords = $s->keywords({
    threshold => 4,
    maxwords => 10,
    minwords => 3,
});

for my $keyword (@keywords) {
    say $keyword;
}