diff --git a/pwdmake/pwdmake b/pwdmake/pwdmake
new file mode 100755
index 0000000..3a157d2
--- /dev/null
+++ b/pwdmake/pwdmake
@@ -0,0 +1,7 @@
+#!/usr/bin/perl -w
+
+@chars=( "A" .. "Z", "a" .. "z", 0 .. 9, qw(! @ $ % ^ & *) );
+foreach ( 1 .. 8 ) {
+	$passwd = join("", @chars[ map { rand @chars } ( 1 .. 8 ) ]);
+	print "$passwd\n";
+}