system $perl, '-wle', 'print $ARGV[0]', unpack('H*', $p);