例
#!/usr/bin/env perl
use MeCab;
my $sentence = "太郎はこの本を二郎を見た女性に渡した．";
my @arg = ($0, "オプション");
my $c = new MeCab::Tagger (\@arg);
my $result = $c->parse($sentence);
print $result;
exit;元の形態素と読みだけ出力したい場合 (元の形態素\t読み\n)
my @arg = ($0, qq(-F%m\t%f[7]\n));