#! /usr/bin/perl -w

use strict;

open OUT, '>', 'ex1' or die "ex1: $!\n";
# print OUT <<'MULTI'; # makes no difference
print OUT <<MULTI;
foo^M
bar^M
MULTI
print OUT "rat^M\n";
print OUT "bar^M\n";
close OUT;
__PRODUCES__
foo
bar
rat^M
bar^M