Windows上のPerlで改行コードをLF（0x0a）にするには

通常、Windows上で改行処理をする時の改行（\n）のコードは、CR LF（0x0d0a）です。
しかし、Linux用にファイル出力をする時は、LF（0x0a）にしたいのです。
エスケープ文字にも\rや\nは有りますが、LFになるもは無いのです。

この場合は、オープン後にbinmodeします。
すると、ファイル出力時には改行コードがCR LFでなくLFのみになるのです。

use strict;
use warnings;

open(FH, '> linuxfile.txt') or die "open error($!)";
binmode(FH);
print FH "TEST1\n";
print FH "TEST2\n";
close(FH);