open(my $handle, "/some/program|") or die;
while (<$handle>) {
  # do stuff with a line
}