Select Code to Download

use Digest::SHA1;
$sha1 = Digest::SHA1->new;
...


print "$digest\n";

sub generateDigest{
my ($file) = @_;
...
warn "$digest";
return $digest;
}