perl md5sum