#!/usr/bin/perl -w
$DEBUG=1;
#this is my random password generator project
open(FILE ,"/dev/urandom") or die "could not open the file: $!";
$index=0;
print "how many characters in length should the password be?\n";
$input=<STDIN>;
chomp($input);
while($index < $input)
{
  $character=getc FILE;
  chomp($character);
  print "### DEBUG: \$character is $character\n" if $DEBUG;  
  if(chr $character =~ m/[55-90]/)
    {
	push(@array ,$character);
        $index++;    
    }
}
print reverse(@array);
close FILE;