There's the open pragma and the three argument form of open using ":crlf:". However, you probably need a recent version of perl for this to work.