Makedict random.pl

#!/usr/bin/perl -w

use strict;

my $password ;

# a big list:
#my @chars = qw( !  "     $  %  &  '  (  )  *  +     -  .  / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z  [  \  ]  ^  _  ` a b c d e f g h i j k l m n o p q r s t u v w x y z  {  |  }  ~);
#push ( @chars , '#' ) ;
#push ( @chars , ',' ) ;

my @chars = qw(0 1 2 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z);

# print $#chars+1 ."\n";

for (my $count = 0; $count < 300000000; $count++) {
    print $chars[rand(@chars)].$chars[rand(@chars)].$chars[rand(@chars)].$chars[rand(@chars)].$chars[rand(@chars)].$chars[rand(@chars)].$chars[rand(@chars)].$chars[rand(@chars)]."\n";
}