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