open(LINE, ">:encoding(UTF-8)", "line.txt") or die "\nCan't create file: $!\n";
print LINE "text" . chr(13) . "more text";