while (1) {
   ...
    open FH, "<pipe";
    my $data = <FH>;
    close FH
  ...
}