#!/usr/bin/perl
use warnings;
use strict;


open OUT, '>', "unixending.txt" or die "$!";
binmode OUT;
print OUT pack "C8", 0x41,0x42,0x43,0x0A,0x44,0x45,0x46,0x0D;
close OUT;

open IN, '<', "unixending.txt" or die "$!";
while (<IN>)
{
   chomp;
   print "\"$_\"\n";
}

__END__
"ABC"    ## fine for Unix <LF> 0x0A
"DEF     ## didn't work for old MAC <CR> 0x0D
"