#!/usr/local/bin/perl
BEGIN { push(@INC, 'ここに、Chasen.pm があるディレクトリを記述する'); }
use Chasen;

$chasen = Chasen->new('ここに chasend のホスト名を指定する', 31000)
    || die "Can't connect to chasen server.\n";

$text = join('', <>);
for($chasen->run($text, '%m %h'))
{
    ($word, $n) = /([^ ]*) (.*)/;
    $noun_table{$word}++ if $n eq '6';
}

while(($word, $cnt) = each %noun_table)
{
    print "$cnt $word\n";
}

$chasen->quit;