sub generateDigest{
my ($file) = @_;
my $sha1 = Digest::SHA1->new;
open(FILE, $file) || die;
binmode FILE;
$sha1->addfile(*FILE);
close(FILE);
my $digest = $sha1->hexdigest;
warn "$digest";
return $digest;
}