Select Code to Download

use strict ; use warnings ;

...
  my ($vec) = @_ ;
  return '0x'. scalar reverse(unpack('h*', $vec)) ;
} ;