use strict; use warnings; use Digest::MD5;