use strict;
my $cr=pack("H2",'0d');
my $lf=pack("H2",'0a');
my $lfcr=$lf.$cr;
my $ans=unpack("H4",$lfcr);
print '$lfcr=x',"$ans\n";