#!/usr/bin/perl

if($ARGV[0]>5 && $ARGV[0]<20){
@chars = ('a'..'z', 'A'..'Z', '0'..'9', '.', '!');
for($a=0;$a<$ARGV[0];$a++){print $chars[int(rand(@chars))]}
}
else{print "Please pass the length of password you want as an argument\nIt must be between 5 and 20"}
print "\n";

exit;

#!/usr/bin/perl

&genpass;

sub genpass{
$choice="";
$length="";
$num="";

while($length<5 || $length>20){
print "\nPlease the length for the passwords between 5 & 20: ";
$length=<STDIN>;
chop $length;
}

while($num<1 || $num>25){
print "\nPlease the number of passwords you want between 1 and 25: ";
$num=<STDIN>;
chop $num;
}

@chars = ('a'..'z', 'A'..'Z', '0'..'9', '.', '!');
for($a=0;$a<$num;$a++){
for($b=0;$b<$length;$b++){
print $chars[int(rand(@chars))];
}
print "\n";
}

while($choice ne "y" && $choice ne "n"){
print "\nDo you want to go again? (y/n): ";
$choice=<STDIN>;
chop $choice;
}
if($choice eq "y"){&genpass;}
}

exit;