# Default to unix.
my ($newline) = /(\015\012?)/ ? $1 : "\012";