my $cr = chr 0xD;
my $lf = chr 0xA;

print "Line before\n";
print "Line with crlf$cr$lf";
print "Line after\n";

print "Line before\n";
print "Line with cr$cr";
print "Line after\n";

print "Line before\n";
print "Line with lf$lf";
print "Line after\n";

##</code><code>##

Line before
Line with crlf
Line after

Line before
Line aftercr

Line before
Line with lf
Line after