perl 死循环读取，会不会有问题？

这样两个perl进程通信，一个perl往管道文件里写东西，另一个perl读取，
用一个死循环，本来有sleep的，我嫌sleep太延时了，就干掉，请问perl高手这样做会不会有问题？

#!/usr/bin/perl -w

use strict;
use warnings;

open READ, '/tmp/pipe';
while(1){
        print if defined ( $_ = <READ> ) ;
        #sleep(1) ;
}

看你默认的FILE支持多大了，没什么问题。