perl-date-manip sha1sum fixed