Data Conversion

I want to read a file line-by line and write it line by line to another file. Regarless of environment I want newline start with DOS's \x0d\x0a Here's the code snippet: $ii=open(MYHAN,"<file01.htm"); open(MYHAN2,">>receive.htm"); binmode(MYHAN); binmode(MYHAN2); while ($line=<MYHAN>) { chomp($line);