my ($tmp_fh, $tmp_name) = tempfile(); binmode($tmp_fh, ":crlf" );