$md5_disk = undef; open(FILE, "/tmp/dl_mods/$filename") or die "md5sum cannot find /tmp/dl_mods/$filename !!"; binmode(FILE); $md5_disk = Digest::MD5->new->addfile(*FILE)->hexdigest; close(FILE);