1 files changed, 9 insertions, 0 deletions
diff --git a/fuzz/get_sha1 b/fuzz/get_sha1
new file mode 100644
index 00000000..4bc34fb6
--- /dev/null
+++ b/fuzz/get_sha1
@@ -0,0 +1,9 @@
+#!/usr/bin/env perl
+require 5.008;
+use warnings;
+use strict;
+use Digest::SHA;
+
+binmode STDIN;
+my $digest = Digest::SHA->new('sha1')->addfile(*STDIN)->hexdigest;
+print "$digest\n";