or download this
#################################################################
# Random Password Generator
...
# Set The Random Password
my $ranpwd = $alpha[rand @alpha],$number[rand @number],$number[rand @n
+umber],$alpha[rand @alpha],$alpha[rand @alpha],$alpha[rand @alpha];