#!/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);