diff --git a/contrib/README.md b/contrib/README.md
index ed2c7408b..36c04c969 100644
--- a/contrib/README.md
+++ b/contrib/README.md
@@ -6,9 +6,25 @@ Do not expect all scripts to work!
 
 Please fix bugs and report things you find.
 
-## Hush Tools
+# Hush Tools
+
+## block\_time.pl
+
+Estimate when a Hush block will happen.
+
+Example:
+
+    ./contrib/block_time.pl  123456 # Print out datetime of when block height 123456 happens
+
+## gen-zaddrs.pl
+
+Generate zaddrs in bulk, by default 50 at a time. Prints out a zaddr one per line.
+
+Example:
+
+    ./contrib/gen-zaddrs.pl     # generate 50 zaddrs
+    ./contrib/gen-zaddrs.pl 500 # generate 500 zaddrs
 
-block\_time.pl - estimate when a Hush block will happen
 
 ## Wallet Tools
 
diff --git a/contrib/gen-zaddrs.pl b/contrib/gen-zaddrs.pl
new file mode 100755
index 000000000..ccf8e8e78
--- /dev/null
+++ b/contrib/gen-zaddrs.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl
+# Copyright 2019-2022 The Hush developers
+# Released under the GPLv3
+use warnings;
+use strict;
+
+my $hush    = "./src/hush-cli";
+my $znew    = "$hush z_getnewaddress";
+my $count   = 1;
+my $howmany = shift || 50;
+
+while ($count < $howmany) {
+    my $zaddr   = qx{$znew};
+    chomp($zaddr);
+    print qq{$zaddr\n};
+    $count++;
+}