Perlでランダムな文字列を

超やっつけですが。

use strict;
use warnings;

my @letters = ('a'..'z', 'A'..'Z', 0..9);
my $length  = shift || 5;
my $loop    = shift || 1;

for(1 .. $loop){
  print $letters[int(rand(@letters))] for(1 .. $length);
  print "\n";
}

$ perl randomstring.pl 10
xE3e0jBHay

追記

String::Randomというモジュールがあるのは知ってるけど・・・
Perlの大きなメリットである「大抵のUNIXに入ってる」を考慮すると、例えば商用UNIX系で非標準モジュールをテストのためだけにインストールして使えるか？という問題があるのですよね。
俺がRubyとかに興味がありつつ使ってないのは、そういう部分も大きい。実際某商用UNIXでは標準パッケージで提供しているスクリプトがPerlで書かれてたりすることもあるしね。