Вопрос о реализации демона на perl.

Программа под linux. Надо запустить бесконечный ping, который выдавал бы результаты построчно в некую переменную и далее с ней проводились некоторые действия. Написал вот так:
#!/usr/bin/perl
$ip="192.168.1.1";
$int="0.5";
foreach $p (`ping -c 6 -i $int $ip`){
chomp $p;
next if $p!~/ttl/;
print "$p\n";
}
Получается, вроде, то что надо, но только результаты обрабатываются и печатаются лишь после окончания всех 6 пингов. А надо чтобы делалось непрерывно и в процессе работы, потому что если пинг будет непрерывный, то выполняться вообще ничего не будет. Как это сделать?

Примечание:
Нет, добавил $| = 1; и ничего не изменилось :(

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.