% extprog >big.data
  % myperl big.data

##</code><code>##

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

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

##</code><code>##

  $foo = $bar + 1 unless $moon->phase < 0.2;