$sha1->addfile(*FILE);
(Emphasis by me). In one of the cases you forgot the *
In reply to Re: Digest::Sha1 differences by moritz in thread Digest::Sha1 differences by Anonymous Monk