#!/usr/bin/perl -w
#import module

use String::MkPasswd qw(mkpasswd);

#print custom password

print mkpasswd(
  -length  => 13,
  -minnnum => 4,
  -minspecial => 3,
);