Межпоцессорное взаимодействие и perl

Пишу anti-spam фильтр на Perl. В качестве программы для проверки слов использую ispell. Как сделать чтоб подавать ispell слова на вход и читать результат в одном скрипте не используя следующую строчку?

$result=qx{echo '$buf' | ispell -l -d$lang };

Я пробовал еще так:

open(ISP,"|ispell > pipe");
print IPS, "$buf";
open (PIPE,"pipe");
$input=<PIPE>;

Но в таком случае не получается зациклить последние 3 строчки.
На 2-й итеррации уже ничего не получается читать из pipe.

Help,
Please
...