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


$fhIN = $ARGV[0];
open(IN,$fhIN) || die "\ncan open file for input";
binmode IN;
$sha1->addfile(IN);
$digest = $sha1->hexdigest;


print "$digest\n";


##</code><code>##

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;
}