Select Code to Download

sub hexa_triplet {
map{($_[0]>>$_)&255}16,8,0
}

sub hexa_triplet {
unpack"xC3",pack"N",@_
}