in reply to Can't create DOS line endings under Unix in heredocs

You can use \r or \cM in double quoted strings to create the ^M. 
print OUT <<MULTI;
foo\r
bar\r
MULTI

[download]
Seems to work just fine on my machine here.

In Section Seekers of Perl Wisdom