#----------------------------- $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 ) ]); #-----------------------------