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