sha1sum.pl   [plain text]

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

$/=undef;

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