pipe+perl

Как можно посмотреть просто есть ли данные в трубе, а не ждать, пока они придут и только после этого продолжать выполнение...
на перле под Юниксом

код:
----------

open (PIPE, "-|") || exec("tail -n 0 -f ./file");
do {
my $i=readline(*PIPE);
...}
while (1)

----------

исполняет "..." только при получении каких-либо данных... а нужно постоянно исполнять это "...", даже если нет в трубе ничего...
И еще сразу, у Linux какой размер трубы, собственно...?

Спасибо!