or download this
#!/usr/bin/perl -w
use strict;
...
my $password = "";
my $possible = 'abcdefghijkmnpqrstuvwxyz23456789ABCDEFGHJKLMNPQRSTUVWX
+YZ';
while (length($password) < $length) {$password .= substr($possible, (i
+nt(rand(length($possible)))), 1);}return $password}