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