Here is a quickie random password generator that I've used in the past...

#!/usr/bin/perl -wT
use strict;

sub passgen {           # sub to gen random passwd
  my $len = shift;      # one integer param for length of passwd

  my @chars = (0..9,'A'..'Z','a'..'z');          # which chars are leg
+al
  my $passwd;
  $passwd .= $chars[rand @chars] for (1..$len);  # make the passwd
  return $passwd;
}

#### Testing Loop ####
for my $len (6..9) {  # for various lengths
  for my $i (1..3) {  # try it a few times
    my $passwd = passgen($len);
    print "$i.)L=$len randpass = '$passwd'\n";
  }
  print "\n";
}

=sample output
1.)L=6 randpass = 'rqLb1V'
2.)L=6 randpass = 'zdrG8f'
3.)L=6 randpass = '5Rl2mA'

1.)L=7 randpass = 'Z4AiWxX'
2.)L=7 randpass = 'gnx6RFy'
3.)L=7 randpass = 'HbZJ6Zw'

1.)L=8 randpass = 'yp5euXPx'
2.)L=8 randpass = 'JZXNkGui'
3.)L=8 randpass = 'oaVlhw1f'

1.)L=9 randpass = 'DcFWjoSie'
2.)L=9 randpass = 'YMZ5mXOM4'
3.)L=9 randpass = 'm6Kgo8HJu'
[download]

-Blake