unless (open (CMDREAD, "$program $args |")) {
  die "ERROR in executing $program $args: $!\n";
}
else {
  while (<CMDREAD>){
    # do something with $_
  }
  close (CMDREAD);
} # else