在Perl中,如何在输入到达时立即处理输入,而不是等待换行？

$( echo -n foo ; sleep 5 ; echo -n bar ; sleep 5; echo baz) | my_script.pl

我希望输出是这样的,每一行出现在前一行之后五秒：

[foo]
[bar]
[baz]

我怎么做？

这有效,但真的很难看：

#! /usr/bin/perl -w

use strict;
use Fcntl;

my $flags = '';
fcntl(STDIN,F_GETFL,$flags);
$flags |= O_NONBLOCK;
fcntl(STDIN,F_SETFL,$flags);

my $rin = '';
vec($rin,fileno(STDIN),1) = 1;
my $rout;

while (1) {
  select($rout=$rin,undef,undef);
  last if eof();

  my $buffer = '';

  while (my $c = getc()) {
    $buffer .= $c;
  }

  print "[$buffer]n";
}

有更优雅的方式吗？