diff --git a/commands/gen_pass.pl b/commands/gen_pass.pl
new file mode 100644
index 0000000..ed099d3
--- /dev/null
+++ b/commands/gen_pass.pl
@@ -0,0 +1,14 @@
+#! /usr/bin/env perl
+
+use v5.10.1;
+use strict;
+use warnings;
+use Pod::Usage;
+
+BEGIN {
+    push @INC, "../";
+}
+
+use ACU::Password;
+
+say Password::gen_password($ARGV[0], $ARGV[1]);