open(my $fh, "-|",
  cleartool => 'lsco', '-r', '-brt', $stream, '-fmt', "%En\t%u\n") or die "Err: $!";
while (<$fh>) {
  print "OUTPUT: $_";
}
close $fh or die "Error: $!";