open(CMDREAD, "$program $args |")
    or die "ERROR in executing $program $args: $!\n";

  while (<CMDREAD>){
    # do something with $_
  }
  close (CMDREAD);