$val = unpack 'H32', 16;

##</code><code>##

$val = unpack 'H32', do { read FILNAM, $_, 16; $_ };