My password generator code

Some people have asked me about the code for my password generator. Here it is:

use strict;
use warnings;

use Crypt::Random qw(makerandom_itv);
use HTML::Entities;

print "<pre>\n  ";
print join( ' ', ('A'..'Z') );
print "\n +-", '--' x 25, "\n";

foreach my $x ('A'..'Z') {
    print "$x|";
    foreach my $y (0..25) {
 print encode_entities(
           chr(makerandom_itv( Strength => 1,
          Uniform  => 1,
          Lower    = >ord('!'),
          Upper    => ord('~')))), ' ';
    }
    print "\n";
}
print '</pre>';

If you enjoyed this blog post, you might enjoy my travel book for people interested in science and technology: The Geek Atlas. Signed copies of The Geek Atlas are available. Looking for a new job? Try UseTheSource.