>type !.pl
my $LF = "\x0a";
print "This line ends with a linefeed" . $LF;

>perl !.pl > !

>debug !
-rcx
CX 0020
:
-d100 l20
0B25:0100  54 68 69 73 20 6C 69 6E-65 20 65 6E 64 73 20 77   This line ends w
0B25:0110  69 74 68 20 61 20 6C 69-6E 65 66 65 65 64 0D 0A   ith a linefeed..
-q