use strict;
use warnings;
use utf8;
use Lingua::JA::Summarize::Extract;

my $extracter = Lingua::JA::Summarize::Extract->new;
my $text = "日本語の文章を沢山書きます";
my $result = $extracter->extract($text);
my $summary = $result->as_string;

utf8::encode($summary);
print $summary; #サマリーが出てくる．