Я предполагаю, что вы пытаетесь сделать это на платформе, отличной от Windows?
Вам просто нужен слой: crlf в дескрипторе файла, например:
open FOO, "> :crlf", "foo.txt" or die "error: $!";
format FOO=
hi
there
.
write FOO;
Вы можетеприменить слои к существующим файловым дескрипторам, используя binmode:
binmode STDOUT, ":crlf";