open (STDOUTHANDLE, "somecommand|");
while ($line = <STDOUTHANDLE>) {
  # . . .
}