Password generator II

My last post about password generator , Warpboy's wordlistGenerator present an more effective way for looping.

alphanumeric
my $var = (('A'..'Z'),(1-9));

mixalpha
my $var = (('A'..'Z'),('a'..'z'));

upperAlpha
my $var = ('A'..'Z');

lower Alpha
my $var= ('a'..'z');

lalpha-smybol
my @var = (('a'..'z') ,(0..9),'!','@','#','$','%','^','&','*','(',')','-','_','+','=');

digit
my $var=(1..9);

all
my @char = (('A'..'Z'), (0..9),'!','@','#','$','%','^','&','*','(',')','-','_','+','=','~','`','[',']','{','}','|', "/", ":" ,";",'"',"'",'<','>',",",".","?","/");

My code:
for($i=65;$i<=122;$i++){ print ","; print "\"".chr($i)."\""; } Then the rest of his idea is fairly simple and nice $charset = chomp(); #get user desired charset...if($charset eq 'charset_name')

$inputted = chomp(); #number of words to generate
$len = Length(); #word length
$ran = $#var +1; #counter

foreach(1..$inputed){
for(1..int($a)){
$p=$char[int(rand($ran))];
print pa $p; #pa - file handler
}
}

His code is avaiabel http://www.securitydb.org/Warpboy/WordlistGenerator.rar
Cool...perl is really a great programming language with strong flexiblity and rich modules, I love it ~~