bin2hex

#- Bin2Hex.pl
#- Copyright (c) 1995 by Dr. Herong Yang, http://www.herongyang.com/
# Slightly adapted for generating ABAP XSTRING testdata from a raw file
#
   $in = "test.xlsx";
   $byteCount = 0;
   open(IN, "< $in");
   binmode(IN);
   while (read(IN,$b,32)) {
      $n = length($b);
      $byteCount += $n;
      $s = 2*$n;
      print "`".uc(unpack("H$s", $b))."`,\n";
   }
   close(IN);
   print "Number of bytes converted = $byteCount\n";
   exit;