Miscellany

use Digest::SHA1  qw(sha1 sha1_hex sha1_base64);
$filename = shift;
open(FILE, $filename);
my $file = do { local $/; <FILE> };
$digest = sha1_hex($file);
print $digest;
print "\n";