perl + inetd

Всем привет
Написал небольшую утилиту на C++, которая данные со стандартного ввода
пересылает на стандартный вывод + заносит в БД. Запускаю ее как демон 
в inetd:

telnet stream tcp nowait root /path/to/my_util_cpp

Все работает, то есть на клиентской стороне получаю "эхо" и данные 
заносятся в БД.

Потом сделал аналогичную (?) программу на перле:


# работа с БД опущена

while(<STDIN>){
    print;
}

 - при вызове из консоли все работает аналогично предыдущему бинарному
варианту, когда запускаю через inetd, на клиенте не получаю "эха", 
то есть вывод перлового скрипта не попадает в inetd.

В чем может быть проблема?