blob: e24b1714918045f5596d53d62ae72134e404102b [file] [log] [blame]
#!/usr/bin/perl
BEGIN {
require Digest::SHA; Digest::SHA->import(qw(sha256_hex sha512_hex));
}
$/=undef;
while(<>) {
print sha512_hex($_)," $ARGV\n";
}