$ perl -Mstrict -Mwarnings -E '
open my $outFH, q{>:crlf}, \ my $outFile or die $!;
say $outFH q{Hi};
close $outFH or die $!;
say sprintf q{%02x}, ord for split m{}, $outFile;'
48
69
0d
0a
$