Select Code to Download

use File::Temp;
use File::Spec;
...
print "sending out5 to $fname\n";
# binmode $h, ":utf8";  # no CR, shows 0x0A only.  But :utf8 silences 
+warning.
print $h "hello5\x{b6}\n";