build/sha1sum.pl - spamassassin - Git at Google

 #!/usr/bin/perl
 use Digest::SHA1 qw/sha1_hex/;

 $/=undef;

 while(<>) {
   print sha1_hex($_),"  $ARGV\n";
 }
	#!/usr/bin/perl
	use Digest::SHA1 qw/sha1_hex/;

	$/=undef;

	while(<>) {
	print sha1_hex($_)," $ARGV\n";
	}