open(OUTPUT, '|sort >foo')  # pipe to sort
        or die "Can't start sort: $!";
  #...			# print stuff to output
 close OUTPUT		# wait for sort to finish
     or warn $! ? "Error closing sort pipe: $!"
              : "Exit status $? from sort";