open(OUTPUT, '|sort >foo');     # pipe to sort
...                        # print stuff to output
close OUTPUT;                   # wait for sort to finish
die "sort failed" if $?;        # check for sordid sort
open(INPUT, 'foo');             # get sort's results
