#!/usr/local/bin/perl -w

use TermExtract::JapanesePlainTextEUC;
use strict;
my $data = new TermExtract::JapanesePlainTextEUC;
my $InputFile = "in.txt";

my @noun_list = $data->get_imp_word($InputFile); 

open(FH, '>:encoding(UTF-8)', "out.txt") or die $!;

foreach (@noun_list) {
   print FH "$_->[0], $_->[1]\n";
}
close FH;