quick password generator hack

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";
+}