perl -e 'open(I, "> foo\nbar")'