Because I want to do it with perl -pe. That is, the open, read, and print are all done in the stock set-up.