my $CRLF = $OS eq 'Windows' ? "\r\n" : "\n";

use Socket ':crlf';
my $CRLF = $OS eq 'Windows' ? CRLF : LF;