% perl -wE'use Digest::MD5 qw(md5_hex); say md5_hex("t\x00e\x00s\x00t\x00")'
c8059e2ec7419f590e79d7f1b774bfe6