パスワード作るやつ mkpasswd.pl <length> みたいにして使う。

mkpasswd.pl

#!/usr/bin/env perl
use strict;
use warnings;
use String::Random;

my $length = shift;
$length //= 8;

die "length must be unsigned int" if $length < 1;

for my $i (1..$length) {
    print String::Random->new->randregex("[a-zA-Z0-9]");
}
print "\n";