#----------------------------- |
$random = int ( rand ( $Y - $X +1 ) ) + $X ; |
#----------------------------- |
$random = int ( rand (51)) + 25; |
print "$random\n" ; |
#----------------------------- |
$elt = $array [ rand @array ]; |
#----------------------------- |
@chars = ( "A" .. "Z" , "a" .. "z" , 0 .. 9, qw(! @ $ % ^ & *) ); |
$password = join ( "" , @chars [ map { rand @chars } ( 1 .. 8 ) ]); |
#----------------------------- |