h1. Perl code to create random string of characters

mixed-case, alphanumeric, 8 chars long

http://www.perlmonks.org/?node_id=233023

code.#!/usr/bin/perl -wT

use strict;

my @chars = ("A".."Z", "a".."z", "0" .. "9");
my $string;
$string .= $chars[rand @chars] for 1..8;

print $string . "\n";
code..

 #perl #programming