1 files changed, 11 insertions, 0 deletions
diff --git a/scripts/claws-password b/scripts/claws-password
new file mode 100755
index 0000000..e16173a
--- /dev/null
+++ b/scripts/claws-password
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl
+use v5.26;
+use strict;
+use warnings;
+# VERSION
+use Config::ClawsMail;
+# PODNAME: claws-password
+# ABSTRACT: print out a cleartext password from claws store
+
+my $c = Config::ClawsMail->new();
+say $c->password_store->password_for(@ARGV);