in reply to printing chr(10) to a file adds chr(13) infront

The trick here is to call binmode() on the filehandle: 
open(BINARYFILE, ">file") or die "can't open file for writing: $!";
binmode(BINARYFILE);

[download]

In Section Seekers of Perl Wisdom