print unpack 'H*', $binstring;