A Perl script for generating a strong password using String::MkPasswd

generate_strong_password.pl

#!/usr/bin/env perl
use String::MkPasswd qw/mkpasswd/;

print mkpasswd(
        -length         => 12,
        -minnum         => 4,
        -minlower       => 3,
        -minupper       => 4,
        -minspecial     => 1,
        -distribute     => 0,
) . "\n";