Rick's variation on https://www.bartbusschots.ie/s/2014/08/16/xkpasswd-2-service-with-automator/

cogley_xkpasswd_for_automator.pl

# import best-practice standard perl modules
use strict;
use warnings;
 
# import the XKPassed module
use lib '/usr/local/xkpasswd.pm/';
use XKPasswd;
 
# create an XKPasswd password generator object with out custom config
my $config_overrides = {
    num_words => 4,
    word_length_max => 9,
    word_length_min => 5,
    padding_characters_before => 2,
    padding_characters_after => 2,
    case_transform => 'ALTERNATE',
    padding_alphabet => ['!', '&', '?', '@', '=', '^', '~'],
    separator_alphabet => ['-', '.', ':', ';', '_']
};
my $password_generator = XKPasswd->new('/usr/local/xkpasswd.pm/sample_dict.txt', 'APPLEID', $config_overrides);
 
# use our generator to create and random password and print it
print $password_generator->password()."\n";